date dernière modification du dossier

[dam0326]

Bonjour,

Je souhaite rajouter sur une feuille Excel la date de dernière modification effectuée sur ce dossier.

Ci-dessous la procédure que j'ai fait :

- Alt + F11
- Sélection de "Thisworkbook" à gauche de l'écran.
- Sélection de "workbook" dans le cadre à droite de l'écran
- Sélection de "BeforeSave"
- Rajout entre "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" et "End Sub"
- Feuil(1).Range(A1) = Format(Date, dd / mmmm / yyyy)

Et après que faut-il faire ????

Merci pour vos réponses ...

 

[Nairolf]

Re : date dernière modification du dossier

Salut dam0326,

Essaye plutôt avec la fomule:
Sheets("Feuil1").Range("A1") = Format(Date, "m/d/yyyy")

 

[Pierrot93]

Re : date dernière modification du dossier

Bonjour,

peut être comme ceci, si j'ai bien compris :

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

bon après midi
@+

Edition : bonjour Nairolf

 

[Modeste geedee]

Re : date dernière modification du dossier

Bonsour®

msgbox "Creation :" & ActiveWorkbook.BuiltinDocumentProperties(11) & chr(10)&"Last save :" &ActiveWorkbook.BuiltinDocumentProperties(12)