• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

pdf bestand openen met een opdrachtknop

Status
Niet open voor verdere reacties.
K

karimba

Gebruiker
Lid geworden
8 okt 2006
Berichten
86
Hallo,

ik wil mijn PDF-bestand openen met een opdrachtknop in het Excel-werkblad afhankelijk van de cel waarde . Mijn pdf-bestanden staan in de D-map.
Wie kan mij hierbij helpen?

Alvast bedankt.
 

Bijlagen

  • PDF bestand openen via macro.xlsm
    17 KB · Weergaven: 44
Code: 
Private Sub CommandButton1_Click()
Dim a As String
Dim myShell As Object

a = Range("D3").Value

Set myShell = CreateObject("WScript.Shell")
myShell.Run "D:\PDF bestanden\" & a & ".pdf"

End Sub

Probeer deze eens. Hij opent bestandnaam wat je in D3 invoert
 
Dit zou toch voldoende moeten zijn:
Code: 
Private Sub CommandButton1_Click()
     CreateObject("WScript.Shell").Run "D:\PDF bestanden\" & Range("D3").Value & ".pdf"
End Sub
 
Of;
Code: 
Private Sub CommandButton1_Click()
    ThisWorkbook.FollowHyperlink "D:\" & Range("D3").Value & ".pdf"
End Sub
 
Hallo

Had nog even de vraag. ik heb een aantal PDF bestanden in verschillende mappen.is het mogelijk om de PDF te openen vanuit verschillende mappen?
D:\PDF ; D:\PDF ; D:\PDF2 ; D:\PDF3


Private Sub CommandButton3_Click()
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")

On Error GoTo ErrHndlr
myShell.Run "D:\PDF" & TextBox2.Value & ".pdf"
Exit Sub
ErrHndlr:
MsgBox "No File Exists", vbExclamation


End Sub
 
welke pdf wil je eigenlijk openen ? Mis je niet ergens een "" ? Is het "D:\pdf1.pdf" of "D:\pdf\naam.pdf" ?
probeer anders het laatste voorstel van Edmoor in #4 en schrijf het stuk na "D:" in die cel.
Of voeg een regel toe voor die myShell.Run "D:\PDF" & TextBox2.Value & ".pdf" , nl.
Code: 
msgbox "D:\PDF" & TextBox2.Value & ".pdf"
en kijk of dat jouw bedoelde filename is.
 
Laatst bewerkt:
Hallo

ik zal even wat meer uitleg geven misschien dat je mij dan duidelijk begrijpt wat ik graag zou willlen.:d

ik heb een aantal pdf bestanden op het netwerk.
in verschillende mappen. D:pDF1 ( dit is 1 map) D:pDF2 is ook map 2) etc etc...
nu wil ik dat zodra ik de model in beeld krijg op de TextBox2.
dat ik dan op instructie klik . ik dan de aangesloten instructie krijg van het juiste model uit de verschillende mappen.
 

Bijlagen

  • Dressing .xlsm
    29,7 KB · Weergaven: 25
Maak gebruik van codetags als je code of gedeelten van formules plaatst. Nu wordt het wel erg onleesbaar.

Hier gaan ook niet veel helpers en anderen blij van worden.
Code: 
Private Sub Workbook_Open()
[SIZE=4][COLOR=#ff0000]Application.Visible = False[/COLOR][/SIZE]
UserForm1.Show
End Sub

Blijkbaar compleet gemist? https://www.helpmij.nl/forum/announcement.php?f=5
 
Laatst bewerkt:
hallo

oeps hellemaal gemist inderdaad. dank voor je toelichting. zal er volgende keer beter op letten.!:thumb:
:thumb::thumb:
 
Blijkbaar is lezen niet jouw beste kunst. Je kan berichten en bestanden ook aanpassen.
 
hahhah hou op schei uit. met deze corona crisis al helemaal de weg kwijt hahah

maar is duidelijk.

het gebruik van de onderstaande Codes om de pdf bestanden te openen met een opdrachtknop werkt wel als de pdf bestanden op locatie C:\ staan maar als deze pdf bestanden op het netwerk staan werkt het niet.


Private Sub CommandButton3_Click()
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")

On Error GoTo ErrHndlr
myShell.Run "D:\PDF" & TextBox2.Value & ".pdf"
Exit Sub
ErrHndlr:
MsgBox "No File Exists", vbExclamation

End Sub
 

Bijlagen

  • Dressing-test .xlsm
    23,8 KB · Weergaven: 28
Nu nog codetags gebruiken en ben je helemaal bij en wij blij ;)
 
Code: 
Private Sub CommandButton3_Click()
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")

On Error GoTo ErrHndlr
myShell.Run "D:\PDF\" & TextBox2.Value & ".pdf"
Exit Sub
ErrHndlr:
MsgBox "No File Exists", vbExclamation

End Sub
 
Is die D: een schijf in het netwerk dan?
 
Dat zal dan met de Shell opdracht te maken hebben.
Mijn voorbeeld in #4 doet het prima, ook met een netwerkschijf.
 
ok thanks voor je tijd en moeite. morgen even testen op werk:thumb:
Had nog even de vraag. ik heb een aantal PDF bestanden in verschillende mappen op het netwerk.is het mogelijk om de PDF te openen vanuit verschillende mappen?
 
oke top thanks dat is mooi. ik ga morgen aan de slag hiermee.:thumb:
fijne nacht.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan