Discussion :

[dlight]

Bonjour.

Je me suis inspiré du code de la FAQ suivante:
http://excel.developpez.com/faq/?pag...riptingRuntime

Je n'arrive pas à faire en sorte d'avoir uniquement le nom du dossier et les sous-dossier dans le réseau.

Merci un fois de plus de me guider...

Dlight

[Docmarti]

Comme tu veux les sous-répertoires et non les fichiers, remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

' Dim FileItem As Scripting.File

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FileItem As Scripting.Folder

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 'For Each FileItem In SourceFolder.Files

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each FileItem In SourceFolder.subfolders

[dlight]

Merci !