je ne comprend pas tres bien la macro,j'aurais bien voulu placer les repertoire dans les colonnes que je veux et le fichier en desous des repertoire comme je le voudrais.
j'ai donc interprété que tu souhaites boucler sur tous les dossiers d'un répertoire . chaque dossier (et les fichiers qu'il contient) est listé dans une colonne différente
Option Explicit
Dim c As Integer
Sub listerFichiersDansRepertoires()
Dim Dossier As String
Dossier = 'C:\\\\\\\\5428\\\\\\\\datas'
ListFilesInFolder Dossier, True
End Sub
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
Dim Fso As Object
Dim SourceFolder As Object
Dim SubFolder As Object
Dim FileItem As Object
Dim r As Integer
Set Fso = CreateObject('Scripting.FileSystemObject')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
c = c + 1
r = 1
Cells(r, c) = SourceFolder.Name
For Each FileItem In SourceFolder.Files
r = r + 1
Cells(r, c) = FileItem.Name
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.subfolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
End Sub