Problème Récuprer Nom fichier

Bonjour à tous,

J'aimerais ouvrir un fichier dont je ne connais pas le nom entièrement. Il commence par "TravailMars_"NumeroAléatoire avec un numéro aléatoire. Je ne peux pas changer le nom du fichier à la racine. Je voulais savoir si on pouvait récupérer cela et comment ?

Ou le changer dynamiquement

Pour résumé : J'utilise un fichier A (d'analyse) et je veux récurer le nom du fichier B (dont je ne connais pas entièrement le nom) pour pouvoir travailler dessus.

Je connais la méthode Fullname mais je ne sais pas comment l'utiliser avec le début d'un nom...

Avez-vous une idée ?

Un grand merci à vous !!!!!!!

Bonsoir,

Essaie ainsi :

Sub ChercherFichier()
    Dim Frech$, nF, Ftrv
    Frech = "IndiquerChemin\TravailMars*.xls*"
    Ftrv = Dir(Frech)
    Do While Ftrv <> ""
        nF = Split(Ftrv, "\"): nF = nF(UBound(nF))
        If MsgBox("Voulez-vous ouvrir le fichier :" & Chr(10) & nF, vbQuestion + vbYesNo, _
         "Fichiers trouvés") = vbYes Then
            Workbooks.Open Ftrv
            Exit Sub
        End If
        Ftrv = Dir()
    Loop
End Sub

Cela fonctionne à merveille !

Tu es très fort !

Un grand merci à toi

Bonne soirée.