Bonjour,
Je souhaiterai lister, dans un contrôle listbox, l'ensemble des fichiers .xls présents dans un répertoire et sous répertoires (l'arborescence est assez profonde) avec, dans la première colonne, le nom du fichier et la deuxième colonne le chemin complet du fichier.
J'ai donc élaboré la procédure suivante (en m'inspirant largement de ce que j'ai trouvé sur différents sites) :
Ce code fonctionne très bien sauf qu'il ne liste pas les fichiers présents :
- directement à la racine
- dans les "sous - sous - répertoires" (et suivants)
Comment pourrais je l'améliorer pour obtenir le résultat escompté ?
Je vous remercie par avance,
P.S. : Je vous joints un petit fichier exemple au cas où
Je souhaiterai lister, dans un contrôle listbox, l'ensemble des fichiers .xls présents dans un répertoire et sous répertoires (l'arborescence est assez profonde) avec, dans la première colonne, le nom du fichier et la deuxième colonne le chemin complet du fichier.
J'ai donc élaboré la procédure suivante (en m'inspirant largement de ce que j'ai trouvé sur différents sites) :
Code:
Private Sub UserForm_Initialize()
Dim Chemin As String
Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
Chemin = "C:\Temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ListR = fso.GetFolder(Chemin)
Set sRep = ListR.SubFolders
UserForm1.ListBox1.ColumnCount = 2
UserForm1.ListBox1.ColumnWidths = "200;200"
For Each Rep In sRep
For Each fich In Rep.Files
If fich.Name <> "" Then
ListBox1.AddItem fich.Name
ListBox1.List(ListBox1.ListCount - 1, 1) = Chemin & Rep.Name & "\" & fich.Name
End If
Next
Next
End Sub
Ce code fonctionne très bien sauf qu'il ne liste pas les fichiers présents :
- directement à la racine
- dans les "sous - sous - répertoires" (et suivants)
Comment pourrais je l'améliorer pour obtenir le résultat escompté ?
Je vous remercie par avance,
P.S. : Je vous joints un petit fichier exemple au cas où