Sauvegarde Word au début

Sauvegarde Word au début - VB/VBA/VBS - Programmation

Marsh Posté le 22-01-2008 à 12:16:35    

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

Reply

Marsh Posté le 22-01-2008 à 12:16:35   

Reply

Marsh Posté le 22-01-2008 à 13:54:54    

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

Reply

Marsh Posté le 22-01-2008 à 14:11:18    

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

Reply

Marsh Posté le 24-01-2008 à 11:04:33    

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:

Reply

Marsh Posté le 24-01-2008 à 21:50:13    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed