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 : Sélectionner tout - Visualiser dans une fenêtre à part
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