Userform met PDF's uit folder

[Corrnelis]

Edmoor,

Hartelijk dank, volgens mij werkt het, en hopelijk heb ik binnenkort eens tijd om mij er verder in te verdiepen.
Voor nu iedereen hartelijk dank voor het meedenken en ik ga er eens mee proefdraaien.
Hopelijk loop ik nergens meer tegenaan, en zo ja dan maar weer zoeken voor een oplossing.

Nogmaals super bedankt voor alle hulp.

Gr Cor

 

[Corrnelis]

Beste Mensen,

Toch maar weer even naar jullie expertise vragen.

De pdf worden keurig getoond, maar nu loop ik er tegen aan dat het op verschillende locaties moet draaien.

Dus de harde code van de locatie werkt niet overal.
Kan je dit oplossen met een string?
En zo ja, hoe plaats je deze dan op de plek van de harde codering?

De locatie kan ik gewoon uit 1 cel halen dus dat is geen probleem.
Of nog netter zoals met de aangeleverde join functie van VenA.
(Waar ik in mijn verhaal de cellen D2 tot en met D6 samen kannen voegen.)

Hopelijk willen jullie mij hiermee helpen.
Gr Cor

Private Sub lstPDF_Change()
    Dim shl As Object
    Set shl = CreateObject("Shell.Application")
    shl.Open (Environ("userprofile") & [B][COLOR=#ff0000]"\OneDrive - Golfbaan Schinkelshoek\Gedeelde documenten\Offertes-PDF\"[/COLOR][/B] & lstPDF.Value)


End Sub


Private Sub UserForm_Initialize()
    Dim PDF As String
    PDF = Dir(Environ("userprofile") &[B][COLOR=#ff0000] "\OneDrive - Golfbaan Schinkelshoek\Gedeelde documenten\Offertes-PDF\*.pdf"[/COLOR][/B])
    Do While PDF <> ""
        lstPDF.AddItem PDF
        PDF = Dir
    Loop
End Sub