repertoire

Bonjour à tous,
J'ai cherché longuement la réponse à ma question dans ce forum, car c'est un
sujet très souvent abordé mais malheureusement je n'ai pas trouvé ma solution.

Je sais comment lister tous les fichiers .xls d'un dossier mais j'aimerai
pouvoir "remonter d'un étage", je m'explique.
Dans un répertoire "C:/niveau0/niveau1/niveau2/niveau3" j'ai 3 fichiers .xls
J'aimerai à partir du niveau2, lister tous les fichiers .xls qui sont dans
les dossiers du niveau 3 (imaginons que le niveau 2 contiennent 5
dossiers(dont 1 s'appelle niveau3) contenant eux mêmes 3 fichiers.xls, je
veux lister les 15 fichiers .xls)
Malheureusement, je ne connais pas les noms des dossiers sous le niveau 2,
je ne connais pas non plus leur nombre.

Pouvez vous m'aider?

Merci d'avance,
Aurélie

Bonjour Aurélie,

Vu la question, ca va être dur sans VBA :o)

(non testé)
alt-f11 | insertion | module
sub test()
with application.filesearch
.newsearch
.lookin = "C:niveau0niveau1niveau2"
.filename = "*.xls"
.searchsubfolders = true
.execute
with .foundfiles
for a = 1 to .count
derlig = sheets("Feuil1").range("A65535").end(xlup).row
sheets("Feuil1").range("A" & derlig+1) = .item(a)
next a
end with
end with
end sub

Si tu ne veux que le nom du fichier et pas son chemin complet, il suffit
de remplacer
sheets("Feuil1").range("A" & derlig+1) = .item(a)
par
sheets("Feuil1").range("A" & derlig+1) = dir(.item(a))

@+
FxM

Bonjour à tous,
J'ai cherché longuement la réponse à ma question dans ce forum, car c'est un
sujet très souvent abordé mais malheureusement je n'ai pas trouvé ma solution.

Je sais comment lister tous les fichiers .xls d'un dossier mais j'aimerai
pouvoir "remonter d'un étage", je m'explique.
Dans un répertoire "C:/niveau0/niveau1/niveau2/niveau3" j'ai 3 fichiers .xls
J'aimerai à partir du niveau2, lister tous les fichiers .xls qui sont dans
les dossiers du niveau 3 (imaginons que le niveau 2 contiennent 5
dossiers(dont 1 s'appelle niveau3) contenant eux mêmes 3 fichiers.xls, je
veux lister les 15 fichiers .xls)
Malheureusement, je ne connais pas les noms des dossiers sous le niveau 2,
je ne connais pas non plus leur nombre.

Pouvez vous m'aider?

Merci d'avance,
Aurélie

Merci bcp!!! Je commençais à me noyer entre les Dir, File search,... sans
jamais trouver la solution, c'est exactement ce que je voulais!!!

Bonjour Aurélie,

Vu la question, ca va être dur sans VBA :o)

(non testé)
alt-f11 | insertion | module
sub test()
with application.filesearch
.newsearch
.lookin = "C:niveau0niveau1niveau2"
.filename = "*.xls"
.searchsubfolders = true
.execute
with .foundfiles
for a = 1 to .count
derlig = sheets("Feuil1").range("A65535").end(xlup).row
sheets("Feuil1").range("A" & derlig+1) = .item(a)
next a
end with
end with
end sub

Si tu ne veux que le nom du fichier et pas son chemin complet, il suffit
de remplacer
sheets("Feuil1").range("A" & derlig+1) = .item(a)
par
sheets("Feuil1").range("A" & derlig+1) = dir(.item(a))

@+
FxM

Bonjour à tous,
J'ai cherché longuement la réponse à ma question dans ce forum, car c'est un
sujet très souvent abordé mais malheureusement je n'ai pas trouvé ma solution.

Je sais comment lister tous les fichiers .xls d'un dossier mais j'aimerai
pouvoir "remonter d'un étage", je m'explique.
Dans un répertoire "C:/niveau0/niveau1/niveau2/niveau3" j'ai 3 fichiers .xls
J'aimerai à partir du niveau2, lister tous les fichiers .xls qui sont dans
les dossiers du niveau 3 (imaginons que le niveau 2 contiennent 5
dossiers(dont 1 s'appelle niveau3) contenant eux mêmes 3 fichiers.xls, je
veux lister les 15 fichiers .xls)
Malheureusement, je ne connais pas les noms des dossiers sous le niveau 2,
je ne connais pas non plus leur nombre.

Pouvez vous m'aider?

Merci d'avance,
Aurélie

Z'en prie :o) [blague interne]

@+
FxM