Récupérer chemin d'un fichier non ouvert

Bonjour,

Je cherche à récupérer le chemin d'un fichier qui n'est pas ouvert. Le fichier en question peut se trouver sur un des disques durs. Pour que la macro fonctionne, j'ai besoin de ce chemin. Lequel fichier se trouve quelque part dans l'arborescence d'un dossier. Une fois le chemin trouvé, je veux l'appliquer à la variable chemin.

Pour les besoins, j'ai donné une valeur à la variable chemin mais sur un autre ordi, ce n'est pas le même.

La seule différence dans le chemin est le disque dur, le reste est identique.

Espérant que vous pourrez m'aider.

Merci

Claire

Sub Créernouveaufichier()
aa = InputBox("date du jeudi")
Path = Workbooks(ActiveWorkbook.Name).Path & "\"
ActiveWorkbook.SaveAs (Path & "Figures 2014-2015.xlsm")
Worksheets("1-1").Activate
Range("c1").Value = aa
chemin = "C:\OPR\Claire\Relevé quotidien\"
ActiveWorkbook.ChangeLink Name:= _
        chemin & "Relevé quotidien 2013-2014.xlsm", NewName:= _
        chemin & "Relevé quotidien 2014-2015.xlsm", Type:= _
        xlExcelLinks
    ActiveWorkbook.ChangeLink Name:= _
        chemin & "Relevé quotidien 2012-2013.xlsm", NewName:= _
        chemin & "Relevé quotidien 2013-2014.xlsm", Type:= _
        xlExcelLinks
    ActiveWorkbook.ChangeLink Name:= _
        chemin & "Prévisions 2013-2014.xlsm", NewName:= _
        chemin & "Prévisions 2014-2015.xlsm", Type:= _
        xlExcelLinks

Calculate
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Bonjour,

un essai

Sub Créernouveaufichier()
aa = InputBox("date du jeudi")
Path = Workbooks(ActiveWorkbook.Name).Path & "\"
ActiveWorkbook.SaveAs (Path & "Figures 2014-2015.xlsm")
Worksheets("1-1").Activate
Range("c1").Value = aa
 tablien = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(tablien) Then
        For i = 1 To UBound(tablien)
            If InStr(tablien(i), ".xls") <> 0 Then
                chemin = Left(tablien(i), InStrRev(tablien(i), "\"))
                Exit For
            End If
        Next i
        If chemin = "" Then MsgBox "chemin non trouvé dans liens": Exit Sub
    End If
ActiveWorkbook.ChangeLink Name:= _
        chemin & "Relevé quotidien 2013-2014.xlsm", NewName:= _
        chemin & "Relevé quotidien 2014-2015.xlsm", Type:= _
        xlExcelLinks
    ActiveWorkbook.ChangeLink Name:= _
        chemin & "Relevé quotidien 2012-2013.xlsm", NewName:= _
        chemin & "Relevé quotidien 2013-2014.xlsm", Type:= _
        xlExcelLinks
    ActiveWorkbook.ChangeLink Name:= _
        chemin & "Prévisions 2013-2014.xlsm", NewName:= _
        chemin & "Prévisions 2014-2015.xlsm", Type:= _
        xlExcelLinks

Calculate
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Merci beaucoup pour ton aide, H2so4. Cela fait parfaitement l'affaire.