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

chaval · 9 Mai 2024

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 !

Dranreb · 10 Mai 2024

Une fonction ListBoxOK permettrait de ne pas réécrire pratiquement deux fois la même chose :

VB:

Private Sub UserForm_Initialize()
   ListBox1.ColumnCount = 2 'nombre de colonne de la listbox
   ListBox1.ColumnWidths = "200;0" 'largeur des colonnes, la 2ème = 0
   ListBoxOK "*.pdf", "C:\Users\a.chataignereau\Documents\Collègues\Commerciaux\Abdul"
   End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Cancel = Not ListBoxOK(TextBox1.Text, "C:\Users\a.chataignereau\Documents\Collègues\Commerciaux\Abdul")
   If Cancel Then TextBox1.Text = ""
   End Sub
Private Function ListBoxOK(ByVal Masque As String, ByVal Chemin As String) As Boolean
   If InStr(Masque, "*") = 0 Then Masque = "*" & Masque & "*.pdf"
   Dim FSO As...

chaval · 10 Mai 2024

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 · 10 Mai 2024

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

Dranreb · 10 Mai 2024

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 · 10 Mai 2024

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 · 10 Mai 2024

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 · 10 Mai 2024

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 · 10 Mai 2024

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

Dranreb · 10 Mai 2024

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

chaval · 10 Mai 2024

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

Dranreb · 10 Mai 2024

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 · 10 Mai 2024

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 · 10 Mai 2024

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 · 10 Mai 2024

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

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

chaval

XLDnaute Nouveau

Pièces jointes

Dranreb

chaval

XLDnaute Nouveau

Pièces jointes

chaval

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

chaval

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

chaval

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

chaval

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

chaval

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

chaval

XLDnaute Nouveau

Discussions similaires