Bonjour a tous,
j'ai un petit probleme en ce qui concerne le balayage d'un dossier et des sous dossier que contient ce dossier.
Ce que je souhaite faire c'est tout d'abord trouver les nom de tous les dossier d'un fichier principal, puis récupérer les noms de tous les sous dossiers des sous dossier. j'espere avoir été clair?
Voici mon code:
Set f = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value)) //accede au fichier principal
Set fc = f.Files //doit reperer le nom des sous dossiers
For Each f1 In fc
s = f1.Names//récupère le nom de tous les sous dossiers
Set f2 = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value) & '\\' & Trim(s)) //accède au sous-sous dossier
Set fd = f2.Files //repere les noms de tous les sous sous dossiers
G utilisé le déboggage et le prb c'est que il s'arrete a fc? alors que des dossiers existent mais ce ne sont pas des *.xls
Si qq'un a une idée toutes aide sera la bienvenue
Merci.
j'ai un petit probleme en ce qui concerne le balayage d'un dossier et des sous dossier que contient ce dossier.
Ce que je souhaite faire c'est tout d'abord trouver les nom de tous les dossier d'un fichier principal, puis récupérer les noms de tous les sous dossiers des sous dossier. j'espere avoir été clair?
Voici mon code:
Set f = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value)) //accede au fichier principal
Set fc = f.Files //doit reperer le nom des sous dossiers
For Each f1 In fc
s = f1.Names//récupère le nom de tous les sous dossiers
Set f2 = fs.GetFolder(Trim(RacineBox.Value) & '\\' & Trim(AnnéeBox.Value) & '\\' & Trim(s)) //accède au sous-sous dossier
Set fd = f2.Files //repere les noms de tous les sous sous dossiers
G utilisé le déboggage et le prb c'est que il s'arrete a fc? alors que des dossiers existent mais ce ne sont pas des *.xls
Si qq'un a une idée toutes aide sera la bienvenue
Merci.