Trouver le chemin d'accès d'un classeur

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 haut
End With
Chemin = Replace(CheminNomEtDate(1, 0), NomFichier, "")
MsgBox "Chemin du premier fichier " & NomFichier & " trouvé : " & Chemin

A+

Réponse acceptée !
heu déjà c'est pas
Test()
mais
Sub Test()

ensuite si ton fichier est un nouveau classeur, et qu'il n'a pas été encore enregistré, c'est normal que la chaine de caractères soit vide, vu qu'il est 'nulle part' pour le moment

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA