recherche de classeurs

Question

Salut  à tous


Pour faire ma recherche de classeur excel j'utilise ce code:


Private Sub btnchercher_Click()

    Dim Fichier As String

    

    ListBoxResult.Clear  'on vide en premier


    'recherche dans un répertoire précis

    'Dir("C:\Documents and Settings\Vinc\Bureau"): renvoie le premier fichier

    'de ce répertoire et parcour les suivants

    

    

Fichier = Dir(Environ("USERPROFILE") & Application.PathSeparator & _

                "Bureau" & Application.PathSeparator)

    

    Do While Fichier <> ""

    'UCase pour s'assurer d'une bonne comparaison entre les chaînes

        If UCase(Fichier) Like "*" & UCase(ZoneRech.Value) & "*.XLS" Then

            ListBoxResult.AddItem Fichier

        End If

        Fichier = Dir  ' Recherche suivante

    Loop


    'On spécifie l'Index à afficher seulement si la liste n'est pas vide

    If ListBoxResult.ListCount > 0 Then ListBoxResult.ListIndex = 0

End Sub


avec cette fonction:


Private Function lfctFolderExists(aFolder As String) As Boolean

Dim li_Index As Integer


'Parcourt les éléments de la liste


For li_Index = 0 To ListBoxResult.ListCount - 1


    'Si un des éléments porte le nom passé en paramètre,

    'on sort en indiquant que l'élément est déjà présent

    

    If ListBoxResult.List(li_Index) = aFolder Then

        lfctFolderExists = True

        Exit Function

    End If

Next li_Index

End Function


dans se dossier clients j'ai une série d'autres dossiers avec chacun
des classeurs excel dedans et je voudrais trouver les classeurs de tous
les dossiers, comment faudrait-il faire car avec se code ca ne marche
pas. Faut-il rajouter une étoile à la fin du chemin?



Je vous remercie de votre aide et désolé si ma question est un peu bète mais mon niveau en vba est débutant ,@ bientôt.

cs_MPi · Answer

Tu dois utiliser la récursivité.
Fais une recherche sur le site. Il y a eu une bonne réponse récemment.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Recherche de classeurs

1 réponse

Votre réponse

Discussions similaires