Indiquer la date du dernier enregistrement du fichier

Bonjour à tous,

J'utilise quotidiennement un fichier excel .xlsm; je souhaiterais indiquer dans la première feuille en A1; la date du dernier enregistrement (i.e la dernière fois que j'ai appuyé sur le bouton enregistrer)

Est-ce qu'il est possible d'intégrer un code qui pourrait renseigner correctement cette cellule ?

Merci de votre aide,

Cdt

Kytockx

Bonjour à tous,

Pour que cela serve à d'autres; voici la solution a ma problématique.

Il faut d'abord enregistrer le fichier en .xlsm, puis aller dans le code, dans ThisWorkBook il faut y placer le code suivant:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Sheets("Feuil1").[B2] = Now   'Feuil1 étant votre feuille de travail et B2 la cellule où vous souhaitez mettre la date de dernier enregistrement
End Sub

Cdt

Kytockx

Bonjour,

En effet :

Private Sub Workbook_Open()
    Worksheets(1).Range("A1") = Me.BuiltinDocumentProperties("Last Save Time")
End Sub

dans le module ThisWorkbook.

Mettre le format de cellule à : jj/mm/aaaa hh:mm pour afficher la date et l'heure.

Cordialement.