Date et heure de sauvegarde

[Hermione]

Bonjour
Je souhaiterais mettre dans une cellule d'un tableau excel (excel 2000) la date du dernier enregistrement de ce document.
Cela permettrait de voir la date de la dernière mise à jour.
Merci de votre aide

Hermione

 

[pierrejean]

Re : Date et heure de sauvegarde

bonjour Hermione

une solution:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Now
End Sub

 

[Robert]

Re : Date et heure de sauvegarde

Bonjour Hernione, bonjour le forum,

Essaie avec cette macro événementielle à adapter et à placer dans le composant ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("ton_onglet").Range("ta_cellule").Value = Now
ActiveWorkbook.Save
End Sub

Édition :

Ha ! Sacré PierreJean tou dégaine plous vite que moi Hombre ! Bonjour...

 

[pierrejean]

Re : Date et heure de sauvegarde

re

Salut Robert 🙂 🙂

Mon neurone est peut-etre plus rapide que le tien mais le tien en fait plus !

et puis tu n'oublies pas de sauver avant de sauver