Bestanden ophalen uit keuzemenu

[Danielle22]

Hallo allemaal,

Ik probeer pdf-files uit een combobox te laten ophalen, maar heb geen idee of überhaupt wel gaat werken.

Stel ik heb een factuur met de volgende nummers (zie bijlage):
1515
1516
1517

In mijn map C:/facturen staan de pdffiles; 1515.pdf, 1516.pdf en 1517.pdf. Er wordt al wel automatisch een pad gemaakt van waar de bestanden dan staan.

Als ik nu deze getallen in de combobox wil opzoeken en aanklik dan moet de betreffende pdf file geopend worden.

Weet iemand of dit mogelijk is? Ik werk namelijk liever niet met hyperlinks. Als voorbeeld heb ik ook nog even een bijlage toegevoegd.

Groetjes,

Danielle
Bekijk bijlage voorbeeld.xls

 

[Warme bakkertje]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
Dim Filename As String
    Filename = "C:\Facturen\" & ComboBox1 & ".pdf"
    ShellExecute 0, "Open", Filename, "", "", vbMaximizedFocus
End Sub

of

Private Sub CommandButton1_Click()
On Error Resume Next
ThisWorkbook.FollowHyperlink "C:\Facturen\" & ComboBox1 & ".pdf"
End Sub

 

[Danielle22]

Hoi Rudi,

Heel erg bedankt!:thumb:

Dit gaat echt veel sneller. Ik had namelijk voor elke factuur een aparte verwijzing. Dus ik had onder elke knop de code:

ThisWorkbook.FollowHyperlink Address:="C:\facturen\1516.pdf", NewWindow:=True

etc.

Maar nu met de combobox is dit echt veeeel beter.

Bedankt!

Groetjes,

Danielle