Lister récursivement des fichiers dans un listbox

Bonjour

Je cherche à lister dans un Listbox de façon récursive tous les fichiers d'un répertoire et de tous ses sous-répertoires en fonction des mots clé saisi dans 5 textbox.

Pièce jointe 396578
Citation :

Citation:

---

alors effectivement c'est pas ma dernière version de recherche de fichier en recursif avec dir il manquait quelques details qui peuvent etre importants notament j'inclu aussi les fichiers cachés ou en lecture seule voir les fichiers system

---

Votre fichier pourrait correspondre à mon projet ??

bonsoir modus57
et bien tu l'a la fonction
il te suffit d'utiliser la sub 1

Code:

---

1 2 3 4 5 6 7

Sub test() dossier = "C:\Users\polux\Desktop" 'tablo = cherche(dossier, ".xls", ".gif", Array(textbox1, textbox2,etc....))'on recherche plusieurs arguments 'MsgBox Join(tablo, vbCrLf) "au lieieu du message tu met talistbox.list=tablo End Sub

---

c'est pas plus compliqué que ca

Bonjour patricktoulon :D

J'ai essayé d'intégrer votre procédure et je n'arrive pas à la faire fonctionner elle est un peu complexe pour mon projet.

Pour mémoire le nom des fichiers contient systématiquement les éléments suivant 'Nom, Type de document, Émetteur, la Date'.

Après le choix du répertoire voilà le message qui s'affiche ' Erreur d'exécution'13' : Incompatibilité de type'.

Et ça bug à la ligne :

Code:

---

If Right(itemsvu, Len(exT)) = exT Or Right(itemsvu, Len(exT2)) = exT2 Then

---

Je fais un blocage je n'arrive pas résoudre le problème.

Ci-joint mon fichier.

bonjour
désolé modus57 mais tout est a revoir
une combo pour les extentions alors qu'une combo ne peut pas etre multiselect
pas de bouton pour lancer la recherche
un dialog qui s'ouvre a l'activate
tout ce qui faut pas faire tu l'a fait ;)
je t'ai donné les 3 possibilité il faut adapter a ton userform(je t'ai pourtant maché le travail)
en plus ton fichier tourne en boucle plus possible de l'eteindre obliger de tuer la tache dans la gestion des taches
bref je te comprends de moins en moins
reprends les bases et reviens avec un fichier propre
etudie bien les exemples que je t'ai donné ;) essaie de les comprendre

re

Tu as raison j'ai été trop vite et bâclé le job.

Je suis navré et revois ma copie.

@++

ben c'est un peu la conception aussi a revoir
prends une page blanche et ecrit ce que tu veux faire en toute lettres
mettre les etapes lignes par lignes
que ce soit plus clair
la oui on pourra peu etre t'aider a ebaucher une mecanique la fonction fonctionnant d'elle meme en toute circonstences le reste se fait donc dans l'appel de celle ci
mais une combobox pour x extentions recherchées (chercher l'erreur:roll:)
un dialog qui s'ouvre a l'activate sans demander ton avis (chercher l'erreur:roll:)
la recherche enclanchée au moindre changement des textes box (chercher l'erreur)imagine que tu cherche une chaine de 10 caractere avant d'avoir fini de taper tu a enclanché le moulin 9 fois
beep!!
beep!!
beep!!!
hoh! le buzer il fouette avec moi ;)
mon idéee
garde ton userform comme tel
sauf ta combo qui n'est pas apporpriée met plutot

1. une listebox masquée ou affichée par un bouton et met la en multiselect
2. un bouton pour ouvrir la boite de dialog
3. un bouton pour enclancher le moulin APRES!!!!! AVOIR REMPLI OU!!! PAS tes textboxs

la on sera d'accords pour un debut

Bonjour patricktoulon :D

J'ai suivi vos conseils, voici la nouvelle mouture de mon fichier, mais je bloque dans le cas d'une multisélection dans la listbox choix du type d'extension.

Pour mémoire le nom des fichiers est systématiquement composé sur ce principe Nom adhérent Type de document Émetteur Date.ext exemple : DUPONT bulletin d'adhésion Association 16-07-18.ext

J'espère que cette fois mon formulaire tiens la route.

Merci d'avance pour votre réponse @+

re
salut
etudie cela
tout les extentions se choisissent dans la listebox
il n'y a plus q'un module
j'ai virer ton choix repertoire evec FSO et utilisé un app.dialog
j'ai testé ca match !!

Bonjour patricktoulon :D

Je viens de tester ton fichier, je n'ai pas répondu plus tôt car j'étais en vacances.

Effectivement les dossiers du répertoire et des sous répertoires sont filtrés dans la Listbox en fonction de la ou les sélections du type d'extensions.

Par contre ça fonctionne pas pour filtrer par exemple tous les dossiers dont le nom commence "D*" et/ou " M*" dans la TextBox1, le type de document commence par "bulletin*" et/ou "facture*" dans la TextBox2, etc…

re
bonjour modus combien de fois devrais-je devoir le dire
si tu dois avoir tout les arguments de tout te textboxdans un meme chemin & itemvu tu en fait qu'un
argument=textbox1 &"*" & textbox2 &"*" testbox3 etc....
et tu injecte qu'un argument la fonction se charge elle meme d'en faire un array de 1
si tu comprends pas je peux plus rien pour toi

Bonjour patricktoulon :D

OK j'ai compris pour l'injection de tous les arguments en un seul formant un array.

N'ayant pas votre niveau de compétence et expérience, je me permet de formuler une nouvelle question.

Comment filtrer tous les dossiers dont le nom comprend une date comprise entre la date de début et la date de fin saisie dans la TextBox 4 et 5.

Ça n'a pas très important mais pourquoi après avoir filtré tous les dossiers en fonction du type d'extension la première ligne de la liste est vide dans la ListBox1.

Merci d'avance pour votre indulgence et votre réponse.