Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: pdf bestand openen met een opdrachtknop

  1. #1
    Junior Member
    Geregistreerd
    8 October 2006
    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
    Geregistreerd
    27 February 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 February 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    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
    Junior Member
    Geregistreerd
    8 October 2006
    Gelukt. Erg bedankt voor jullie input!

  6. #6
    Junior Member
    Geregistreerd
    8 October 2006
    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 May 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 : Vandaag om 05:36

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 en business

Partners
Sponsoren