PDF openen met knop

[Noord2011]

Beste mensen,

Ik heb een knop gemaakt die PDF documenten mee kunnen openen.

NU heb ik de PDF doc ontvangen en ze zijn anders benoemd bijv 222_A1 of 1234¬_A0

Hoe kan ik een code schrijven dat de eerste cijfer tot het lage streep lees en de pdf doc oprenen.

(het moet zodanig zijn dat je klik in column F op het tekening nummer en klik op de knop, PDF wordt automatisch geopend.)

Mv/Gr

 

[Wigi]

Private Sub CommandButton1_Click()
myPDF = "C:\Factuur\" & Left(ActiveCell.Text, InStr(ActiveCell.Text, "_") - 1) & ".pdf"
ActiveWorkbook.FollowHyperlink myPDF, , True
End Sub

 

[Noord2011]

Wigi,

Heb je dit getest, zo ja kan je het bestand uploaden
Bij mij werkt het niet.

Mv/Gr

 

[Wigi]

Het kan zeker geen kwaad om te testen, bvb. door een MsgBox in te code in te lassen:

MsgBox myPDF

 

[Noord2011]

Ik weet niet wat je wil bereiken met de MsgBox

zie bijlage

Op mijn pc open ik het PDF doc, als het het zelfde nummer heeft in het excel dus zonder _A1 (knop 2) 112 open pdf 112.

Mijn probleem is nu dat het ontvangen PDF documenten hebben namen zoals 111_A1 en 112-A0.

In het Excel bestand heb ik dezelfde nummer maar tot cijfer zonder _A1.

 

[Wigi]

Ik weet niet wat je wil bereiken met de MsgBox

Dan vraag je uit wat de code neemt als bestandsnaam (zonder .PDF)

Dit wordt gevormd via

Left(ActiveCell.Text, InStr(ActiveCell.Text, "_") - 1)

 

[Warme bakkertje]

Dan zal je mi eerst een lijst moeten importeren van alle PDF-documenten in die bepaalde map en dan via deze lijst de documenten openen aangezien het hier geen probleem is in excel maar met de naamgeving v/d documenten
Of je zal eerst alle ontvangen documenten van een nieuwe naam moeten voorzien (met het Name-statement) zodat je je huidige macro kan blijven gebruiken

 

[Noord2011]

ok,

Maar het gaat om 11MB / 1400 PDF doc, daarom probeer ik een optie te zoeken.

zie bijlage
zo'n pdf bestand naam moet in open (112_A1) en in excel heet het zelfde pdf 112.
Dus klik op cel met 112 vervolg op de knop, pdf 112_A1 wordt geopen.

Mv/Gr

 

[Wigi]

En wat als er meerdere bestanden zijn die met hetzelfde beginnen?

 

[Noord2011]

Het nummer is uniek
bijv
112_A1
111_A1
1234_A0
56789_A3

Dus ik moet aleen tot het cijfer kijken

Mv/Gr

 

[Warme bakkertje]

Van Ivan F Moala deze gevonden en wat aangepast