Indiquer date d'enregistrement

Bonjour Juliette42, bonjour le forum 🙂

A mettre dans le code de ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
Sheets(1).Range('B5').Value = 'Fichier mis à jour le ' & Date
End Sub

Mais il faut savoir que si l'argument SaveAsUI est TRUE, l'utilisateur peut annuler l'enregistrement (correspond à Enregistrer Sous).

Amicalement
Charly

Bonjour Charly,

je te remercie pour ta réponse et cette aide.

peux-tu me donner plus de précision sur ta dernière phrase : 'Mais il faut savoir que si l'argument SaveAsUI est TRUE, l'utilisateur peut annuler l'enregistrement (correspond à Enregistrer Sous).'

Juliette

Bonsoir juliette42, bonsoir à toutes et à tous 🙂

Dans les arguments de la procédure événementielle BeforeSave, tu as SaveAsUI qui t'indique si la demande d'enregistrement a été faite par Fichier/Enregistrer ou par Fichier/Enregistrer Sous.

Comme tu le sais certainement (sinon, tu essaieras), lorsque tu fais 'Enregistrer Sous', on te demande le nom du fichier etc. mais tu peux aussi annuler ta demande. Or la procédure est appelée avant et dans le cas d'une annulation, tu auras mis à jour ta cellule pour rien...

En espérant avoir été clair :unsure:

Bonne soirée
Charly