Date dernière mise à jour

[JC]

Bonjour,

Je cherche à insérer sur un fichier une fonction me permettant de voir la date du dernier enregistrement (c'est-à-dire la dernière mise à jour du fichier).

A priori, je pensai trouver rapidement mais je me retrouve bloqué...

Quelqu'un connaît-il la solution?

Merci d'avance.

JC

 

[Abel]

Bonjour JC,

Essaie ce code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range('a1') = Format(Date, 'dd mmmm yyyy')
End Sub

Ce code est à insérer dans 'Thisworkbook'.
Ouvre l'éditeur de VBA (Alt+F11)
Sélectionne 'Thisworkbook' par un double clic sur 'Thisworkbook' dans l'explorateur de projet (normalement sur la gauche de l'écran dans VBE).

Chaque fois que tu enregistreras, ce code inscrira la date courante au format 'jj mmmm aaaa' dans la cellule A1 de la feuille n°1 (à adapter, bien sûr).


En espérant que cela te dépanne.

Abel.

 

[dg62]

Bonjour JC, Abel, le forum




Sub dersauve()

derdate = ActiveWorkbook.BuiltinDocumentProperties('Last Save Time')

Range('a1').Value = derdate
End Sub

 

[JC]

Merci à Abel et à dg62,

cela fonctionne.

A +,

JC