Microsoft 365 Afficher dans cellule la date d'enregistrement d'un autre fichier excel

Option Explicit

Private Sub Workbook_Open()
'Ton code ici
msgbox "Le résultat de ton code"
'ou
Feuil1.range("A1")="Le résultat de ton code"
End Sub

Sub test()

With ThisWorkbook.Sheets("Feuil1").Range("A1")
    .Value = DateLastModified("F:\Repertoire\Etat.xls")
    .NumberFormat = "m/d/yyyy"
End With
End Sub

Private Sub Workbook_Open()
    Dim fso, f
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("F:\Repertoire\Etat.xls")

    With ThisWorkbook.Sheets("Feuil1").Range("A1")
        .Value = f.DateLastModified
        .NumberFormat = "m/d/yyyy"
    End With
   
    Set f = Nothing
    Set fso = Nothing

End Sub

Private Sub Workbook_Open()
    Dim f
    
    Set f = CreateObject("Scripting.FileSystemObject").GetFile("F:\Repertoire\Etat.xls")

    With ThisWorkbook.Sheets("Feuil1").Range("A1")
        .Value = f.DateLastModified
        .NumberFormat = "m/d/yyyy"
    End With
    
    Set f = Nothing

End Sub