La macro suivante enregistre le document, puis insère la date et l'heure d'enregistrement à l'endroit où se trouve le curseur.
Sub EnregistrerEtInsererDateHeure()
ActiveDocument.Save
Dim DateHeureEnregistrement As String
DateHeureEnregistrement = "Enregistré le " & Format(Now, "dd/mm/yyyy à HH:MM")
Selection.TypeText Text:=DateHeureEnregistrement
ActiveDocument.Close wdSaveChanges
End Sub
ActiveDocument.Save
Dim DateHeureEnregistrement As String
DateHeureEnregistrement = "Enregistré le " & Format(Now, "dd/mm/yyyy à HH:MM")
Selection.TypeText Text:=DateHeureEnregistrement
ActiveDocument.Close wdSaveChanges
End Sub
