Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1050 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sauvegarde Word au début

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Sauvegarde Word au début

n°1674956
francoisch​1
Posté le 22-01-2008 à 12:16:35  profilanswer
 

bonjour
 
Ma mère, âgée et novice, oublie souvent de sauvegarder ce qu'elle saisit en Word.
 
J'aimerai pouvoir lui installer, idéalement, une macro VBA qui:
- se lance à l'ouverture d'un document nouveau
- déclenche l'action Sauvegarder sous, présente la fenêtre du même nom et demande un nom / un répertoire pour la sauvegarde
 
La solution doit fonctionner:
- avec Word déjà ouvert, en faisant Nouveau document
- à l'ouverture de Word depuis son icône, ..., puisque Document1 est ouvert
 
Merci par avance à celui qui aurait une solution.
 
En espérant avoir posté dans le bon forum.
 
Francois

mood
Publicité
Posté le 22-01-2008 à 12:16:35  profilanswer
 

n°1675025
Elmoricq
Modérateur
Posté le 22-01-2008 à 13:54:54  profilanswer
 

C'est pas plus simple de passer par la sauvegarde automatique de Word ?
http://www.izipik.com/images/20080122/ml0h09k62svohfwl51-sauvegarde.PNG

n°1675051
francoisch​1
Posté le 22-01-2008 à 14:11:18  profilanswer
 

Bonne suggestion mais ça va créer des fichiers tous nommés Document1, Document2, ...
 
J'ai déjà un bout de VBA qui sauvegarde une fois Word déjà ouvert:
Sub AutoNew()
ActiveDocument.Save
End Sub
mais il me manque qqchose de semblable quand on ouvre Word et qu'il ouvre un nouveau document.
 
Merci de ton aide.
 
Francois

n°1676078
dirtsa
Posté le 24-01-2008 à 11:04:33  profilanswer
 

tu peux faire ça :
 

Code :
  1. Private Sub Document_New()
  2.      
  3. Dim Vnom As String
  4. ChangeFileOpenDirectory "D:\...\mondossier\" 'chemin pour dossier d'enregistrement
  5. Vnom = "xxx.doc"   'nom du document
  6. ActiveDocument.SaveAs Filename:=Vnom, FileFormat:= _
  7.      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, _
  8.      WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  9.      SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
  10. End Sub


j'ai fait ça rapidement, mais ça devrait t'aider.  
après, pour la sauvegarde régulière, tu fais exécuter la fonction save en fonction du temps (Now --> jj/mm/aaaa hh:mm:ss)  
ex:
    i=5   '5min entre chaque enregistrement
    vdeb=now
    si  vdeb=now+00:i:00 alors
        call save
        i=i+5
    fin si
 
Bon c'est une trame, mais là aussi, ça devrai t'aider
 :hello:

n°1676486
francoisch​1
Posté le 24-01-2008 à 21:50:13  profilanswer
 

bonjour Dirtsa et merci de ta réponse.
 
Je vois que ta solution crée un document pré-nommé dans le répertoire pré-déterminé.
 
Au risque de paraître désagréable, j'aime bien l'autre solution que j'indiquais auparavant qui me laisse le choix du nom du fichier / répertoire.
 
Egalement, ta solution ne répond pas au second besoin que j'exprimais: forcer "Enregistrer sous" quand on démarre Word depuis son icône et qu'il va pour ouvrir "Document1".
 
Aurais tu qqechose de plus dans tes solutions?
 
Merci déjà de ton aide.
 
Francois


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sauvegarde Word au début

 

Sujets relatifs
Macro excel pilotant word, Pb pour supprimer une sectionmacro excel pour collage spécial dans Word
Début du fichier au format RTFsauvegarde
Crrer un script pour sortir les image de document word[Résolu] chmod() et les variables $_GET['var']
[Word] Style de paragraphe et grasDébut qui veut faire un site
Sauvegarde des fichiers c ou c++ sous visual c++énorme espace en début d'affichage
Plus de sujets relatifs à : Sauvegarde Word au début


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR