copier/exporter une liste de dossiers

[ltbg]

Bonjour

J'ai un dossier 'Images' (je suis photographe) avec une centaine de sous-dossiers.

Je souhaiterais copier/exporter la liste de ces sous dossiers sur Excel. Afin d'avoir à les retaper un par un evidemment !

est ce possible ?

 

[JORDAN]

Bonjour ltbg,

En faisant une petite recherche tu en trouveras d'autres.

Lien supprimé A+

 

[coco_lapin]

Bonjour ltbg, jordan et le forum.

Un exemple de code à adapter.


Sub RechercheFichiers()
Set fs = Application.FileSearch
With fs
.LookIn = 'C:\\Documents and Settings'
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox (.FoundFiles.Count & 'Fichier(s) ont été trouvés.')
For i = 1 To .FoundFiles.Count
Cells(i, 1) = (.FoundFiles(i))
Next i

End If
End With
End Sub