Recherche fichier

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long

Private Function Recherche_Path(R As String, F As String) As String
    Dim T As String, resu As Long, flag_ok As Boolean
    T = String(MAX_PATH, 0)
    resu = SearchTreeForFile(R, F, T)
    If resu <> 0 Then
        Recherche_Path = Left$(T, InStr(1, T, Chr$(0)) - 1)     ': Exit Function
    End If
End Function

'-------------------------------------------------
Private Sub Sous_Pdf_Click()
    Dim NuméroDeFactureStr As String
    Dim ClientStr As String
    Dim Chemin, Fichier As String, Absolu As String, hwndSim As String

    NuméroDeFactureStr = [Forms]![Sav recherche]![sfmRecherche].[Form]![N°Facture]
    ClientStr = [Forms]![Sav recherche]![sfmRecherche].[Form]![Client]
    Fichier = [Forms]![Sav recherche]![sfmRecherche].[Form]![N°Facture]

    DoCmd.Close

    Absolu = "C:\Users\Christian\Documents christian\Documents ScanSoft\Factures Sav\"
    'On ne continue que si un fichier a été sélectionné.
    If Fichier <> "" Then
        Fichier = Fichier & ".PDF"
        MsgBox ("Facture numéro: " & NuméroDeFactureStr & vbCrLf & vbCrLf & vbCrLf & "Mr: " & ClientStr)
        
        'Recherche chemin du fichier
        Chemin = Recherche_Path(Absolu, Fichier)
        
        If Chemin <> "" Then
            'Execution du fichier situé à l'emplacement "Chemin" avec son programme par défaut.
            hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin, 0, 0, 1)
        Else
            MsgBox ("Pas trouvé Chemin, Fichier inexsitant")
        End If
    Else
        MsgBox "Aucun fichier sélectionné"
    End If
End Sub