Sub Lire_Propriété()
Dim FSO As Scripting.FileSystemObject
Dim Fichier As Scripting.File
Dim Dte_Creation As Date
Dim Dte_Modif As Date
Dim Wb1 As Workbook
On Error GoTo Fin
Application.ScreenUpdating = False
Range("C1:C11").ClearContents
Set Wb1 = ThisWorkbook
Workbooks.Open Range("B1")
Range("A1").Copy Wb1.Sheets("Feuil1").Range("C1")
ActiveWorkbook.Close
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = FSO.GetFile(Range("B1"))
Dte_Creation = Fichier.DateCreated
'MsgBox Dte_Creation
Dte_Modif = Fichier.DateLastModified
'msgbox dte_modif
Range("C3") = Format(CDate(Dte_Creation), "dd/mm/yyyy")
Range("C4") = Hour(Dte_Creation)
Range("C5") = Minute(Dte_Creation)
Range("C6") = Second(Dte_Creation)
Range("C8") = Format(CDate(Dte_Modif), "dd/mm/yyyy")
Range("C9") = Hour(Dte_Modif)
Range("C10") = Minute(Dte_Modif)
Range("C11") = Second(Dte_Modif)
Application.ScreenUpdating = True
Set FSO = Nothing
Set Fichier = Nothing
Set Wb1 = Nothing
Exit Sub
Fin:
MsgBox "Une erreur s'est produite", vbInformation, "Message:"
End Sub