Pb de lecture de la date de derniere modification

Bonjour
Je désire qu'a l'ouverture d'un classeur, la date de sa dernière modification enregistrée apparaisse dans une cellule de la première feuille.
En m’inspirant des réponses apportées ici à des questions semblables, j'ai rédigé la procédure suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Dim Chemincomplet As String Dim Datedermodif As String Dim Fso As Scripting.FileSystemObject Dim FileItem As Scripting.File   Private Sub Workbook_Open() Chemincomplet = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name ActiveSheet.Range("A1").Value = Chemincomplet Set Fso = CreateObject("Scripting.FileSystemObject") Set FileItem = Fso.GetFile(Chemincomplet) Datedermodif = Left(FileItem.DateLastModified, 20) ActiveSheet.Range("A3").Value = Datedermodif End Sub

---

La procédure fonctionne , mais je n'obtiens pas la date/heure de dernière modification (que je peux voir dans l'explorateur) mais tout simplement la date/heure actuelle ??????
Quelqu'un a-t-il une idée sur la cause ?
Merci de votre aide.
Daniel

8O

Bonsoir,

Normal, à l'ouverture ton ficher est déjà déclaré modifié par windows ;)

Donc la seule date que tu peux obtenir est celle du jour :lol:

A+

Bonjour,

Essayez de remplacer l'intégralité de la procédure Workbook_Open par

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() [a1] = ActiveWorkbook.FullName [a3] = ActiveWorkbook.BuiltinDocumentProperties("Last save time") [a3].NumberFormat = "dd/mm/yyyy hh:mm:ss" End Sub

---