Discussion :

[zandru]

Bonjour,

Ce que j'essaie de faire c'est de recupérer tous les noms de fichiers .xls d'un dossier.
Mon soucis est qu'ils ne sont pas directement dans le dossier mais dans une série de sous-dossier.

Voici ce que j'ai pour l'instant :

Code :

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

1
2
3
4
5
6
7
8
9
10
'parcours des fichiers commandes existants
    ChDir "C:\Documents and Settings\Scale\Bureau\Nouveau dossier\COMMANDES\" 'définition du dossier racine
 
    filecom = Dir("C:\Documents and Settings\Scale\Bureau\Nouveau dossier\COMMANDES\*.xls")
    i = 40
    While filecom <> ""
        Feuil1.Cells(i, 1) = filecom
        i = i + 1
        Dir
    Wend

Comment faire pour effectuer la recherche dans tous les sous-dossiers du dossier COMMANDES ?

[rvtoulon]

Slt,
peux-être ce tutos de Silkyroad trouvé dans la FAQ pourras t'aider !
http://excel.developpez.com/faq/?pag...riptingRuntime

A+

[zandru]

Merci, je ne l'avais pas trouvé !

je vais l'essayer

EDIT: ça fonctionne, merci à toi et à SilkyRoad