Bjr

Voici une macro

Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)

'examen du dossier courant
For Each Flder In Dossier.subfolders
Idx = Idx + 1
Cells(Idx, 1).Value = Flder.Path
Next

'traitement récursif des sous dossiers
For Each sousRep In Dossier.subfolders
TousLesDossiers sousRep.Path, Idx
Next sousRep

Set fso = Nothing

End Sub 'fs

Sub test()
TousLesDossiers "c:\Program Files", 0 'a adapter
End Sub

Merci néné pour la réponse rapide.
Malheureusement, j'ai aucune connaissance des macros sous Excel.
Est-ce possible de m'aider ou, y-a-t-il une autre solution ?
Merci d'avance.

Je pense que tu n'a pas le choix

n'oublie pas que sur Excel il y a une aide

touche F1

puis dans la fenêtre met Macro puis rechercher

puis choisi "copie d'une macro"

je pense que tu vas t'en sortir

BJR

EN VOICI UNE AUTRE


Sub listefichiers()
Range("a:b") = ""'supprime les anciennes données qui sont la la colonne A et B

chemin = InputBox("Lister fichier", "Saisir un chemin", "c:mondossier\")
ext = InputBox("Lister fichier", "Saisir une extention", "*.*")

Dim i, j As Integer
Dim TabExcel() As String

With Application.FileSearch
.NewSearch
.LookIn = chemin
.Filename = ext
.MatchTextExactly = True
.Execute msoSortByFileName
ReDim TabExcel(.FoundFiles.Count, 2)
For i = 1 To .FoundFiles.Count
For j = Len(.FoundFiles(i)) To 1 Step -1
If Mid(.FoundFiles(i), j, 1) = "\" Then
TabExcel(i, 0) = Left(.FoundFiles(i), j)
TabExcel(i, 1) = Right(.FoundFiles(i), Len(.FoundFiles(i)) - j)
j = 1
End If
Next j
Next i
Range(Cells(5, 1), Cells(.FoundFiles.Count + 5, 2)) = TabExcel
End With

End Sub

Ok et un grand merci.
Tout a fonctionné à la perfection.
Tu es trop fort !
Salutations et à bientôt.

Bonjour,

Je viens de voir ma première macro.
Je n'ai pas besoin de la partie récursif des sous dossiers
Mais par contre comment fait on pour ne faire apparaitre que le nom du dossier ??

Ce serait génial
Je chercher,je cherche mais je n'ai pas trouvé mais je réfléchis peut être mal


Cordialement et merci d'avance

Hervé