Rapatrier le nom d'un fichier dans un libellé.

'Source :http://www.commentcamarche.net/forum/affich-2994169-vba-rechercher-un-fichier-dans-un-repoertoire

Sub ChercheFichier()

    Const Chemin = "C:\Documents local\EXCEL"
    Dim NomChercher As String

    Dim oFs As Variant
    Dim NomFichier As String
    Dim I As Integer

    Set oFs = Application.FileSearch
    
    'Capturer ici le nom du fichier inscrit dans le formulaire
    'NomChercher = Chemin & "\" & MonFormulaire.MonTextBox.Value
    NomChercher = "C:\Documents local\EXCEL\Calendrier.xls"
    
    With oFs
        .LookIn = Chemin
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute > 0 Then
            'MsgBox "Il y a  " & .FoundFiles.Count & " fichier(s) de trouvé."
            For I = 1 To .FoundFiles.Count
                NomFichier = .FoundFiles(I)
                If (UCase(NomFichier) = UCase(NomChercher)) Then
                    MsgBox NomFichier
                End If
            Next I
        Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With
    
    MsgBox "Fin de recherche"

End Sub