dirtsa | tu peux faire ça :
Code :
- Private Sub Document_New()
-
- Dim Vnom As String
- ChangeFileOpenDirectory "D:\...\mondossier\" 'chemin pour dossier d'enregistrement
- Vnom = "xxx.doc" 'nom du document
- ActiveDocument.SaveAs Filename:=Vnom, FileFormat:= _
- wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, _
- WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
- SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
- 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
|