Créer une macro "insérer heure actuelle à la sortie" word 20

Bonsoir

Voici une macro qui enregistre le document, puis insère à l'endroit du curseur la date d'enregistrement avec l'heure et enfin, ferme le document.

Evidemment, il faudra enregistrer d'abord le fichier au format docm. S'il s'agit d'un modèle, au format dotm.

Après on peut compliquer en choisissant un endroit particulier où mettre cette date.

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

m@rina

Bonjour,

Avec un Champ, Insertion-QuickPart-Champ, le champ SaveDate au format horaire, mais je suppose qu'il faut enregistrer le document à la fermeture même si on n'a rien changé.
 

Il me semble que les données Exif (Clic droit-Propriétés-Détail) fournissent différents horodatages dont la date de dernier enregistrement et les dates de dernière modification et accès sans aucun subterfuge, mais cette dernière est un faux ami parce qu'il suffit de n'importe quelle opération qui fait appel au fichier (dont ses propriétés) pour l'incrémenter.

Bonjour,

Peut être ceci

Sub MaDate()
' Entrer la date du jour à l'emplacement sélectionné
    Selection.TypeText Text:=Date
End Sub

Merci à toi pour ton aide.