Discussion :

[Daejung]

Bonsoir,

Pour constituer une liste de fichiers que j'affiche dans la liste déroulante d'un Userform, j'utilise ce code http://excel.developpez.com/faq/?pag...riptingRuntime qui fonctionne très bien.

J'y ai ajouté une sorte de filtre qui me permet de ne retenir que les fichiers dont le nom correspond à certains critères.

Mon problème c'est que la procédure dure assez longtemps sur un réseau (quelques minutes), alors que ces fichiers ne se trouvent que dans certains dossiers (la liste n'est pas fixe). Comment imaginer un filtre pour que cette procédure ne parcoure pas tous les dossiers mais seulement ceux susceptibles de contenir les fichiers recherchés?

Par exemple dans tous les dossiers dont le chemin est de la forme T:\AAAA\BBBB\???\CCCC\DDDD , "???" étant le seul dossier (de 3 caractères) dont le nom peut être variable

Merci pour votre aide

[Marc-L]

Bonjour,

utiliser une librairie externe comme FSO n'apporte pas grand chose si ce n'est effectivement
un ralentissement de la procédure, le VBA disposant en interne de tout le nécessaire !

Récemment via FSO une recherche sur un disque local avec des sous-répertoires prenait presque 2'20'',
en pur VBA elle n'a besoin d'à peine 15 secondes … Je n'ose imaginer alors sur un disque réseau !

La procédure doit commencer par chercher les dossiers de 3 caractères dans T:\AAAA\BBBB\
puis pour chacun d'entre eux rechercher dans T:\AAAA\BBBB\???\CCCC\DDDD …

[Daejung]

merci mais tu aurais un exemple de code pour lister les dossiers possibles sans passer par FSO?

[Marc-L]

Il s'agit de la fonction Dir interne au VBA, exemples dans l'aide intégrée …

Ceci s'adressait aussi au code actuel avec FSO :

La procédure doit commencer par chercher les dossiers de 3 caractères dans T:\AAAA\BBBB\
puis pour chacun d'entre eux rechercher dans T:\AAAA\BBBB\???\CCCC\DDDD …

[Daejung]

Je posais la question parce que justement je ne maîtrise pas le fso ... j'écrivais

Comment imaginer un filtre pour que cette procédure ne parcoure pas tous les dossiers mais seulement ceux susceptibles de contenir les fichiers recherchés

ce qui revenait à écrire

La procédure doit commencer par chercher les dossiers de 3 caractères dans T:\AAAA\BBBB\
puis pour chacun d'entre eux rechercher dans T:\AAAA\BBBB\???\CCCC\DDDD …

merci

[Marc-L]

En dehors de la véloce fonction Dir dont l'exemple sur les dossiers est plutôt une bonne base,
voir le tutoriel - principalement axé sur FSO - Manipulation des fichiers en VBA
dans lequel est aussi abordé l'objet FileSearch, disparu depuis la version 2007 (lent aussi) …

Sinon dans ton lien de la FAQ Excel, en remontant il y a aussi un exemple pour boucler sur les fichiers d'un répertoire …