Sub listrep()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim i As Long
i = 1
' Onglet "lesclients" a créer dans le classeur pour récupérer la liste des repertoires clients
Sheets("lesclients").Select
' effacer donnée précédentes
Range("A1:F65000").Select
Selection.ClearContents
' le repertoire racine ou faire la recherche des sous rep.
Chemin = "C:\Users\Pierre\Documents\Mes propositions\Dossiers clients"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
For Each rep In Dossier.SubFolders
' en principe la strucuture des sous rep est constante "xxxx - nom du client"
' Num client les 4 premier carractere
' le nom du clientà partir du 8em car..
i = i + 1
Cells(i, 1) = Mid(rep, Len(Chemin) + 2, 4)
Cells(i, 2) = Mid(rep, Len(Chemin) + 7, 50)
Cells(i, 3) = rep ' Nom du dossier
Next
' Utiliser ensuite la colonne A de l'onglet pour avoir le num de client et donc le nom du client dans une liste de choix
' et ensuite utiliser un simple recherchev pour récupérer le bon nom de client et le bon répertoire.
End Sub