Parcours de dossiers et sous-dossiers

[Madlax]

Bonjour,

J'utilise actuellement une macro qui parcourt tous les fichiers d'un dossier :

Dossiers_travail = Dir(ThisWorkbook.Path & "\*.xls")
Do While Dossiers_travail <> ""
     [I]Traitement sur le fichier[/I]
     Dossiers_travail = Dir
Loop

Malheureusement, on me demande de convertir cette macro pour qu'elle puisse allez chercher tous les fichiers qui se trouvent aussi dans les sous-dossiers, et je ne trouve pas le moyen de gérer ça...
Peut-on juste rajouter un attribut à Dir? (C'est beau les rêves )

Je vous remercie de votre aide, par avance !!

 

[suistrop]

Re : Parcours de dossiers et sous-dossiers

Salut,

Tu vas trouver ton bonheur dans les discussions similaires en bas de la page

Cordialement

Suistrop