date dernière modification du dossier

dam0326 · 31 Mai 2013

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 · 31 Mai 2013

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 · 31 Mai 2013

Re : date dernière modification du dossier

Bonjour,

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

Code:

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 · 31 Mai 2013

Re : date dernière modification du dossier

Bonsour®

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

date dernière modification du dossier

dam0326

XLDnaute Nouveau

Nairolf

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires