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