Créer une macro "insérer heure actuelle à la sortie" word 20
m@rina Messages postés 21211 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 27 décembre 2024 - 13 nov. 2024 à 23:13
- Créer une macro "insérer heure actuelle à la sortie" word 20
- Insérer signature word - Guide
- Supprimer une page word - Guide
- Créer un organigramme sur word - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
4 réponses
Modifié le 6 nov. 2024 à 01:44
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
5 nov. 2024 à 11:57
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.
5 nov. 2024 à 12:07
Merci,
Mais cette manipulation insère l'heure à l'ouverture du document et non à sa fermeture. Pour cette dernière il faut créer une macro et comme je débute .... :-) je reste sans solution à l'heure actuelle
5 nov. 2024 à 12:34
Non,
CreateDate et Date sont ambigus, le dernier rendant la date courante (ou l'heure selon le format) mais cette dernière ne changera pas si je n'en coche pas la mise à jour, EditTime est une autre solution qui rend le temps d'ouverture.
Mais SaveDate n'est pas modifié tant que je n'enregistre pas le document, soit "dans le vide" si je n'ai pas aucune modification, soit à chaque enregistrement successif pendant le travail, et il en faut au moins un avant de fermer.
Pour les macros, je botte en touche, j'y suis nul, voir à tout hasard là:
https://answers.microsoft.com/fr-fr/msoffice/forum/all/date-de-derni%C3%A8re-mise-%C3%A0-jour-du-fichier/cfeb42f1-1906-48fb-88c9-71aaa766ec61?tab=AllReplies#tabs
5 nov. 2024 à 18:59
Bonjour,
Peut être ceci
Sub MaDate()
' Entrer la date du jour à l'emplacement sélectionné
Selection.TypeText Text:=Date
End Sub
12 nov. 2024 à 14:43
Un grand merci à toi M@rina
Je vais tenter ta solution en mettant le nom du champ de formulaire où cette heure doit se retrouver.
Je profite de ce message pour dire MERCIIIIII aux autres personnes qui ont répondu et je m'excuse de la réponse tardive, mais je ne suis pas toujours connecté de par mon activité professionnelle qui prend beaucoup de temps.
Bien à vous
13 nov. 2024 à 23:13
Reviens si tu ne t'en sors pas.
m@rina