Afficher le contrenu d'un repertoire

Bonjour:
Voila un code qui va te permettre d'avancer, il liste tous les fichiers de tous les sousrépertoires de la racine c:

Bien sur bien amenagé, tu devrais t'en sortir.

Bonne chance

Dim compterep
Dim comptefich



Sub listerep()
rep = Dir("c:/", 16)
While rep <> ""
If InStr(1, rep, ".") = 0 Then repertoire (rep)
rep = Dir
Wend

For nrep = 1 To compterep
MsgBox ActiveSheet.Range("a1").Offset(0, nrep)
fich = Dir("c:/" & ActiveSheet.Range("a1").Offset(0, nrep) & "/", 0)
While fich <> ""
ActiveSheet.Range("a1").Offset(comptefich + 1, nrep) = fich
comptefich = comptefich + 1
fich = Dir
Wend
comptefich = 0
Next
End Sub

Sub repertoire(rep)
compterep = compterep + 1
ActiveSheet.Range("a1").Offset(0, compterep) = rep
End Sub

Bonjour

voir aide vba:

Execute, méthode (objets FileSearch et FileFind) - Exemple

Set fs = Application.FileSearch
With fs
.LookIn = "C:\Mes documents"
'<<ajouter ici la recherche dans les sous-répertoires écrite plus bas>>
.FileName = "cmd*"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles.Count & _
" fichier(s) trouvé(s)."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With

C'est à mon avis un etrès bonne piste pour récupérer les noms de fichier
Il faut en plus scruter tous les sous-répertoires donc intercaler la ligne ci-dessous là où j'ai mis '<<ajouter...........>>

.SearchSubFolders = True

Eric