Ouvrir fichier pdf avec un chiffre contenu dans le nom du fichier

Bonjour Forum,

j'ai quelque souci avec le code ci dessous :

Private Sub CommandButton3_Click()
Dim Chemin As String
Dim NFichier As String
Dim Nomclient, N°client As String
    NFichier = "-Facture No" & Cbo_NoFacture.Value
    Chemin = "D:\WILLY\Devis-Factures-2019\FACTURES-PDF\Factures\"
    'NFichier = "-Facture N°" & Range("F2") & "-" & Range("F9") & "-" & "Client N°" & Range("H2") & "-" & Format(Now, "dd-mm-yy") & ".pdf"
    If Dir(Chemin & NFichier & ".pdf") <> "" Then
        ThisWorkbook.FollowHyperlink Chemin & NFichier & ".pdf"
    Else
        MsgBox "Fichier '" & NFichier & "' introuvable..."
    End If
End Sub 

ce code fonctionne mais il ne prend en compte que le début du nom de fichier à savoir " -Facture No"

le souci c'est que mes fichiers ne sont pas nommés comme ça .

mais plutôt comme ça

-Facture No8-Nom du client-Client N°113-01-04-19

avec cette ligne de code

NFichier = "-Facture No" & Range("F2") & "-" & Range("F9") & "-" & "Client N°" & Range("H2") & "-" & Format(Now, "dd-mm-yy") & ".pdf"

il ne trouve le fichier seulement si il nommé avec "-Facture No"

il faudrait que je renomme tout mes fichiers ce qui n'est pas possible parce que j'ai besoin des infos du titre lors de l'enregistrement du fichier.

comment modifier le code pour qu'il trouve le fichier avec son nom complet en fonction du numéro de la Cbo_NoFacture.Value et louvrir avec le bouton

Mereci pour votre aide

12test-copie.xlsm (89.01 Ko)
Rechercher des sujets similaires à "ouvrir fichier pdf chiffre contenu nom"