Private Sub ListerFichiersDansRepertoire()
Dim dossier As Object, subfolder As Object, fichier As Object

Dim chemin As String

Dim i As Long
Dim ch As String

Sheets("feuil2").Select
Range("A6:B643").clear
Range("D6:E643").clear

chemin = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV\"

'Définition de la variable
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
'Set fso_objet = dossier.CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
' Boucle sur les fichiers
For Each fichier In dossier.Files
i = i + 1

'Cells(I, 2) = Fichier.Name ' Nom du fichier
Range("A6").Cells(i, 2) = Left(fichier.Name, InStr(fichier.Name, ".") - 1) 'sans l'extension
Range("A6").Cells(i, 4) = fichier.DateCreated ' Date de création
Range("A6").Cells(i, 5) = fichier.DateLastModified ' Nom du fichier
Range("A6").Cells(i, 10) = fichier.ParentFolder.Name ' Nom du fichier
Next

Unload Gestion_des_BT
Sheets("Feuil2").Visible = True
Range("A1").Select
End Sub

How to list files from a directory ?

[vba-excel] lister le contenu d'un répertoire dans une feuille

list, files, directory

Visual Basic