Discussion :

[modus57]

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 :

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 ??

[patricktoulon]

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

Code :

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

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

[modus57]

Bonjour patricktoulon

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 :

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

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.

[patricktoulon]

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

[modus57]

re

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

Je suis navré et revois ma copie.

@++

[patricktoulon]

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)
un dialog qui s'ouvre a l'activate sans demander ton avis (chercher l'erreur)
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