Sub renseignement_fichier()
Dim fs, f, s
specfichier = ActiveWorkbook.Name
Chemin = ThisWorkbook.Path
chemin_complet = ActiveWorkbook.FullName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(chemin_complet) & vbCrLf
s = s & UCase(specfichier) & vbCrLf
s = s & UCase(Chemin) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub