Bonjour,
voici les code à utiliser sous this document
Private Sub Document_Open()
ChangeFileOpenDirectory "D:\"
ActiveDocument.SaveAs FileName:=toto & " " & date , FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
end sub
Bien sûr, les cercueils ne sont pas taillés sur mesure ; mais les morts s'adaptent à tout.