Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim myPath As String, myFile As String, myDate As String
'récupère le path dans lequel se trouve le fichier ouvert (Date.xlsm)
'va donc lister les fichiers pdf du meme répertoire
myPath = ActiveWorkbook.Path
myFile = Dir(myPath & "\*.pdf")
myDate = FileDateTime(myPath & "\" & myFile)
C = 2
Do While myFile <> ""
Sheets("feuil1").Cells(C, 1) = myFile
myDate = FileDateTime(myPath & "\" & myFile)
Sheets("feuil1").Cells(C, 3) = Format(myDate, "dd/mm/yyyy")
myFile = Dir()
C = C + 1
Loop
End Sub