Discussion :

[loisphil]

Bonjour Forum,

je bloque sur le code ci dessous je ne trouve pas la solution
j'ai une combobox "Cbo_N°Facture" qui liste des numéros de 1 à (sans limite) qui correspondent à des numéros de factures.
EX de nom de fichier: -Facture N°1-nom de client N°112-01-04-19
Je voudrai a laide du bouton "ouvrir" pouvoir une fois le numéro sélectionné dans la combobox "Cbo_N°Facture" ouvrir le fichier PDF contenant ce numéro.

le code suivant ouvre le répertoire sans avoir besoin de la "Cbo_N°Facture" dont j'ai besoin pour la sélection

Pas facile d'expliquer ça en langage néophyte

Merci aux bonnes âmes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton3_Click()
 
Dim Chemin As String
Dim NFichier  As String
 
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 _
    Else: MsgBox "Fichier '" & NFichier & "' introuvable..."
 
End Sub