XL 2019 Recherche dans les sous dossiers d'un répertoire via VBA sur excel

[chaval]

Bonsoir,
En pièce jointe, le fichier excel. Le code VBA ne permet pas de faire une recherche dans les sous dossiers du répertoire.
Sauriez-vous comment modifier le code pour permettre d'effectuer une recherche lors de l'utilisation de l'userform dans des sous dossiers, svp?
Je serai reconnaissante de toute aide apportée !

 

[chaval]

Effectivement, excusez moi
J'ai tous les pdf du dossier qui s'affichent directement, avant même que je ne puisse faire une recherche et la recherche ne marche pas

 

[chaval]

Ca n'affiche en revanche pas les pdf des sous dossiers

 

[Dranreb]

Déboguer, j'ai du mal à le faire de mon coté, n'ayant pas de ces dossiers.
En principe s'il ne trouve pas de fichier il reproduit dan le message le masque qu'il a appliqué.

 

[chaval]

J'ai pris un dossier tout simple avec quelques pdf et un sous dossier contenant un pdf pour que cela soit plus simple quand je travaille dessus. C'est frustrant car l'affichage des pdf est super rapide et c'est vraiment la méthode via cet affichage dans le usf qui correspond à ce que je recherche

 

[Dranreb]

Ben mettez un Stop au début de la Function ListBoxOK puis déroulez en pas à pas pour essayer de comprendre pourquoi ça ne passe pas.

 

[Dranreb]

Oups! Je viens de voir que j'ai oublié de renommer Nom en Masque dans la Sub Fichiers
Vous devriez mettre Option Explicit en tête de vos modules. Ce genre d'erreur serait bien plus vite repéré.

 

[chaval]

J'ai fait le chgt mais pas d'amélioration.
En tout cas merci énormément pour votre aide

 

[Dranreb]

Après avoir mis Option Explicit en tête du module la compilation m'a aussi signalé l'erreur dans la Function NbFich.

 

[chaval]

Je ne vois pas d'où l'erreur peut venir

 

[Dranreb]

Modifiez pueut être vos option VBE Outils, Options, Général, rubrique Récupération d'erreur, cochez Arrêt dans le module de classe.
C'était l'instruction NbFich = NbFich + NbFich(Masque, SDos) où j'avais laissé Nom au lieu de Masque.

 

[chaval]

Ca marche!!
Le usf par contre met trop de temps à apparaître car il affiche directement la liste des fichiers pdf existants dans les dossiers et sous dossiers avant que j'effectue ma recherche.

 

[Dranreb]

Si vous ne voulez pas de l'affichage initial mettez en commentaire l'instruction ListBoxOK "*.pdf", "C:\Users\a.chataignereau\Documents\Collègues\Commerciaux\Abdul" dans la Sub UserForm_Initialize.

 

[chaval]

C'est nickel!! Je vous remercie beaucoup pour votre aide!! c'est vraiment gentil de votre part!