Bonjour à tous,

j'ai réalisé un petit programme qui permet de rechercher des fichiers, et affiche les noms de ces fichiers trouvés dans une liste.
Il fonctionne parfaitement du moment que le nom du fichier est exact.

Je cherche donc comment réaliser la même opération avec seulement une partie du nom (récupéré via une zone de texte).

Voici une partie de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
        strFichier = strChemin & "\" & strNom & ".xls"
        If oFSO.FileExists(strFichier) Then
            Set oFl = oFSO.GetFile(strFichier)
            Me.lstTrouve.AddItem (oFL.name)
        End If
Merci de bien vouloir m'apporter votre aide