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

[halaster08]

Bonjour,

Pour récupérer le numéro de facture de ta combobox:

Code :

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

Cbo_N°Facture.value

[loisphil]

Bonjour,
forum, halaster08

Merci de ton attention
j'ai déjà essayé Cbo_N°Facture.value sans vraiment savoir ou le placer, mais ça ne récupère que le N° qui dans la combo
ce que je souhaite c'est ouvrir le fichier PDF dont le nom du fichier contient le chiffre de la combo avec le bouton ouvrir

[halaster08]

j'ai déjà essayé Cbo_N°Facture.value sans vraiment savoir ou le placer, mais ça ne récupère que le N° qui dans la combo
ce que je souhaite c'est ouvrir le fichier PDF dont le nom du fichier contient le chiffre de la combo avec le bouton ouvrir

Il te suffit d'insérer la valeur de ta combobox dans le nom du fichier de la même que tu y a insérer les valeur de certaines cellules dans le code que tu as donné
Une fois le nom correct ThisWorkbook.FollowHyperlink Chemin & NFichier devrait ouvrir ton pdf

EX de nom de fichier: -Facture N°1

ça donne:

Code :

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

NFichier = "-Facture N°" & Cbo_N°Facture.value

[loisphil]

Voila ce que ça me donne

[loisphil]

Suite

[halaster08]

Tu as oublié le .pdf, par contre attention le nom du fichier doit être exact

Code :

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

ThisWorkbook.FollowHyperlink Chemin & NFichier &".pdf")

[loisphil]

Désolé mais ça ne fonctionne pas.

les noms de fichiers correspondent a ça
"-Facture N°" & Range("F2") & "-" & Range("F9") & "-" & "Client N°" & Range("H2") & "-" & Format(Now, "dd-mm-yy") & ".pdf"

et sont notés dans le répertoire ici


dans un premier temps j'ai çà



après avoir enlevé ELSE j'ai ça



je ne comprends plus.