Réponse acceptée !
Ben je te l'ai donner la reponse
ici. Si on connait pas le chemin d'un fichier dont on a le nom y pas d'autre moyen que de le chercher...
Un code ne fait pas de miracle, mais fait ce qu'on lui demande

Dim CheminNomEtDate() As String, NbFichier As Long, i As Long, Chemin as String, NomFichier As String
NomFichier = "Classeur1.xls"
With Application.FileSearch
.NewSearch
'nouvelle recherche .LookIn = "c:\Mondossier"
.FileName = NomFichier
.SearchSubFolders = True
'dans les sous repertoire ? oui .Execute
'lancement de la recherche NbFichier = .FoundFiles.Count
'combien de fichier trouvé ? If NbFichier > 0 Then
'si au moins un fichier trouvé Redim CheminNomEtDate(1 to .FoundFiles.Count, 1)
'on dimensionne notre variable tableau Else
'si pas de fichier trouvé Msgbox "Aucun fichier Trouvé ! "
.LookIn = ""
'variable percitente doit vider etre si l'on ne veut pas ce retrouvé a chercher dans le chemin precedent Exit Sub
'pas de fichier donc on arrete tout... snif! End If
For i = 1 to NbFichier
'on rempli notre tableau avec les infos sur les fichier trouvé CheminNomEtDate(i, 0) = FoundFiles(i)
'le chemein +le nom CheminNomEtDate(i, 1) = FileDateTime(.FoundFiles(i))
'la date Next i
.LookIn = ""
'voir plus hautEnd With
Chemin = Replace(CheminNomEtDate(1, 0), NomFichier, "")
MsgBox "Chemin du premier fichier " & NomFichier & " trouvé : " & Chemin
A+