enregistrer sous automatique

Re : enregistrer sous automatique

Salut,

voici la macro

Sub Macro1()
'
ChangeFileOpenDirectory "J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers"
NomFichier = "le nom de ton fichier_"
nf = Dir("J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers" & "\" & NomFichier & Format(Date, "dd_mm_yyyy_") & "*")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
ActiveDocument.SaveAs FileName:= _
"J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers" & "\" & NomFichier & Format(Date, "dd_mm_yyyy_") & Format(n + 1, "000"), FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub


le chemin est à vérifier...
tu peux changer l'ordre de la date comme tu veux ( yyyy_mm_dd) .....