Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Pagina 1 van 2 1 2 LaatsteLaatste
Weergeven resultaten 1 tot 20 van 26

Onderwerp: pdf bestand openen met een opdrachtknop

  1. #1
    Vraag is niet opgelost

    pdf bestand openen met een opdrachtknop

    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.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Senior Member JVeer's avatar
    Geregistreerd
    27 februari 2019
    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

  3. #3
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Dit zou toch voldoende moeten zijn:
    Code:
    Private Sub CommandButton1_Click()
         CreateObject("WScript.Shell").Run "D:\PDF bestanden\" & Range("D3").Value & ".pdf"
    End Sub
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Of;
    Code:
    Private Sub CommandButton1_Click()
        ThisWorkbook.FollowHyperlink "D:\" & Range("D3").Value & ".pdf"
    End Sub
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Gelukt. Erg bedankt voor jullie input!

  6. #6
    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

  7. #7
    Mega Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    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 aangepast door cow18 : 30 maart 2020 om 06:36

  8. #8
    Hallo

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

    ik heb een aantal pdf bestanden op het netwerk.
    in verschillende mappen. DDF1 ( dit is 1 map) DDF2 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.
    Bijgevoegde bestanden Bijgevoegde bestanden

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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()
    Application.Visible = False
    UserForm1.Show
    End Sub
    Blijkbaar compleet gemist? https://www.helpmij.nl/forum/announcement.php?f=5
    Laatst aangepast door VenA : 30 maart 2020 om 19:33
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    hallo

    oeps hellemaal gemist inderdaad. dank voor je toelichting. zal er volgende keer beter op letten.!

  11. #11
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Blijkbaar is lezen niet jouw beste kunst. Je kan berichten en bestanden ook aanpassen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  12. #12
    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  13. #13
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Nu nog codetags gebruiken en ben je helemaal bij en wij blij
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  14. #14
    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

  15. #15
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Is die D: een schijf in het netwerk dan?
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  16. #16
    Ja Klopt.

  17. #17
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat zal dan met de Shell opdracht te maken hebben.
    Mijn voorbeeld in #4 doet het prima, ook met een netwerkschijf.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  18. #18
    ok thanks voor je tijd en moeite. morgen even testen op werk
    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?

  19. #19
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Tuurlijk kan dat, maar je moet bij het openen wel altijd het volledige pad opgeven.
    Een voorbeeld in je document uit #1:
    Kopie van PDF bestand openen via macro.xlsm
    Laatst aangepast door edmoor : 30 maart 2020 om 23:08
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  20. #20
    oke top thanks dat is mooi. ik ga morgen aan de slag hiermee.
    fijne nacht.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren