retrouver le chemin d'accès d'un fichier

Option Explicit

Sub Listage()
'Microsoft Scripting Runtime requis
Dim Répertoire As String, Lig&, FSO As New FileSystemObject, Dossier As Folder, Fichier As File
Répertoire = ThisWorkbook.Path
Lig = 1
Cells.ClearContents
On Error Resume Next
Set Dossier = FSO.GetFolder(Répertoire)
If Err Then MsgBox "Accès au dossier """ & Répertoire & """ impossible.", vbCritical, "Recherche": Exit Sub
On Error GoTo 0
For Each Fichier In Dossier.Files
   If Fichier.Name Like "*.*" Then
      Lig = Lig + 1
      Cells(Lig, 1) = Dossier.Name
      Cells(Lig, 2) = Fichier.Name
      End If
   Next Fichier
   Cells.Columns.AutoFit
End Sub

Option Explicit

Sub Cherche_Fichier()
Dim Fso As Object, Rep As String, Wb
Dim f1 As Object, f2 As Object, Nom As String

Set Fso = CreateObject("Scripting.FileSystemObject")
Rep = "U:\SECTION3D\"
Nom = "MaisOuEst-ceQuIlEstPassé.xls"

For Each f1 In Fso.GetFolder(Rep).SubFolders
    For Each f2 In f1.Files
    If f2.Name = Nom Then _
        Set Wb = Workbooks.Open(f2)
    Next f2
Next f1
End Sub

Option Explicit

Sub Test()
Dim Rep$, Nom$

    Rep = "U:\SECTION3D\REUNIONS\"
    Nom = [A2] & ".xls"
  
    If FichierExiste(Rep & Nom) Then
        MsgBox Rep & Nom, vbInformation, "VERIFICATION"
    Else
        MsgBox "Le fichier n'est pas dans ce dossier.", vbExclamation, "VERIFICATION"
    End If
End Sub

Public Function FichierExiste(S As String) As Boolean
Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    FichierExiste = fso.FileExists(S)
End Function