Bonsoir matthieu,
Le code ci-dessous te permet d'analyser le dossier dans lequel se trouve ton classeur. Dans la feuille courante, tu obtiendras la liste des fichiers .txt présents dans ce dossier et leur date de création :
Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = ThisWorkbook.Path
'
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = "txt" Then
I = I + 1
Cells(I, 1) = Fichier.Name
Cells(I, 2) = Fichier.datecreated
End If
Next
End Sub
Cordialement.
Didier_mDF