Bonjour Loic38, le Forum
ce petit code te mettra sur la feuille active (sous réserve que tu mettes le bon répertoire)
en colonne 1 les noms de fichiers
en colonne 2 leur date de création
en colonne 3 leur date de dernière modification
en colonne 4 leur date de dernier accés
Cordialement , A+
Sub Chgt_donnees()
Dim Compteur As Integer
Dim Chemin_Rep As String
Dim Objet_Fichier, Fichier
Chemin_Rep = "C:\Copy\Test" ' entrer le répertoire
Application.FileSearch.LookIn = Chemin_Rep
Application.FileSearch.Filename = "*.saf"
If Application.FileSearch.Execute > 0 Then
For Compteur = 1 To Application.FileSearch.FoundFiles.Count
[A1].Offset(Compteur - 1, 0).Value = Application.FileSearch.FoundFiles(Compteur)
Set Objet_Fichier = CreateObject("Scripting.FileSystemObject")
Set Fichier = Objet_Fichier.GetFile(Application.FileSearch.FoundFiles(Compteur))
[A1].Offset(Compteur - 1, 1).Value = Fichier.DateCreated
[A1].Offset(Compteur - 1, 2).Value = Fichier.DateLastModified
[A1].Offset(Compteur - 1, 3).Value = Fichier.DateLastAccessed
Next Compteur
Else
MsgBox "Pas de fichier disponible"
End If
End Sub