commande DIR, inclure les sous repertoires

[Creepy]

Bonjour à tous,

je fais une macro qui liste les fichiers d'un repertoire en fonction du choix des extensions par l'utilisateur. Voila la commande :

Direction = Dir(Chemin & "\*." & Ext)
Ext = tableau d'extensions choisis par l'utilisateur

j'ai fait une case à cocher : Inclure les sous repertoire.

Que dois-je rajouter à cette ligne de commande pour que si l'utilisateur coche "inclure les sous repertoires", elle s'applique au repertoire choisi et au sous repertoire de cette selection ?

Merci d'avance

Creepy

 

[Nanard]

bonsoir,

je pense qu'il faut ajouter ceci à ton code :

admettons que la cellule liée de ton Check Box soit G1, essayer avec une condition du genre :

If Sheets("feuil1").Range("G1") = True Then 'condition vraie

blabla blabla

A voir ! je ne suis pas un grand expert en VB

@+
Nanard

 

[Creepy]

UP !