Userform met PDF's uit folder

[Corrnelis]

Beste mensen,

Hopelijk weten jullie de oplossing van mijn probleem met dit userform.
Ik heb namelijk een userform die uit een cel een waarde haalt en die gebruikt om de pdf's te laten zien uit een folder.
En aangezien ik heb begrepen (@edmoor) dat samenvoegen van cellen en VBA geen vriendjes zijn.
Heb ik dan ook de cel gekopieerd waar alles wordt samengevoegd en die gebruikt als de cel om de folder op te halen.
Natuurlijk realiseer ik mij dat er wellicht een makkelijkere en betere oplossing is in vba om daar de cellen samen te voegen tot een path.
(mochten jullie dat ook weten, ik hoor het heel graag)

Mijn probleem is voor nu echter het volgende
Als de folder is geopend. (dat gaat goed), moet je vervolgens 1 file kunnen selecteren en die o.a laten open in de webbrowser of printen.
Maar.... en helaas dat werkt dus niet.
Want dan krijg ik "Sub of Function is niet gedefinieerd".
Iemand enig idee wat ik fout doe en wat de oplossing is?

Gr Cor

 

[edmoor]

Je gebruikt Afdrukvoorbeeld.
Die Sub of Function bestaat niet.

Die waarde van die cellen kan je zo samenvoegen:

Map = Join(Application.Transpose(Range("D3:D6").Value), "\")

 

[Corrnelis]

Top!

Nu nog ff uitzoeken hoe ik de "map" aan moet spreken in mijn userform.
Ben nog een beginner hee.
En je zegt dat de Sub of Function niet bestaat, dan is het ook logisch dat ik die niet kan aanroepen.
(ik heb deze userform ooit eens van internet geplukt namelijk en wat aangepast)
Dus, kan jij mij uitleggen hoe ik die function dan moet maken en waar om het e.e.a werkend te krijgen.

M vr gr Cor

 

[edmoor]

Maar wat wil je met die PDF's?
Een preview functie is er niet voor en voor het afdrukken zal je een programma moeten gebruiken die dat kan.

 

[Corrnelis]

Hoi Edmoor,

Het zijn offerte's die bekeken moeten kunnen worden en waarvan men dan diegene kan printen die men nodig heeft.
Bedoeling is dat men niet zelf gaat zoeken op de harde schijf.
Vandaar alle pdf tonen in een userform en het openen in de webbrowser.

Gr Cor

 

[edmoor]

Dan zou ik gewoon een snelkoppeling naar die map maken.
Of dit in een .vbs bestandje:

Set Shell = CreateObject( "WScript.Shell" )
Map = Shell.ExpandEnvironmentStrings("%UserProfile%")
Set Shell = CreateObject("Shell.Application" )
Shell.Open Map & "\Documents\PDFMap"
Set Shell = Nothing

 

[Corrnelis]

Hoi Edmoor,

Als ik heel eerlijk ben.
Ik heb echt geen flauw idee hoe ik dat moet zien met die snelkoppeling en op welke wijze.
En, ik dacht heel simpel om gewoon een pdf file te laten openen in de webbrowser.
Immers de folder had ik al.
Is daar echt geen mogelijkheid voor?
Want wat jij nu schrijft gaat echt volledig boven mijn pet namelijk.
Hopelijk heb je de oplossing met het userform idee.

Gr Cor

 

[edmoor]

Maak een .txt bestandje met Kladblok.
Plak de code uit #6 er in.
Sla het bestandje op als PDFMap.txt
Hernoem deze van PDFMap.txt naar PDFMap.vbs
Dubbelklik er op.

Of kijk hier eens naar:

Private Sub cmdAfdrukvoorbeeld_Click()
    Dim x As Integer
    Dim Map As String
    
    Map = Join(Application.Transpose(Range("D3:D6").Value), "\")
    For x = 0 To Me.lstPDF.ListCount - 1
        If Me.lstPDF.Selected(x) Then ActiveWorkbook.FollowHyperlink Map & "\" & Me.lstPDF.List(x)
    Next x
End Sub

 

[AD1957]

is dit misschien een optie ?

 

[Corrnelis]

Beste Ad1957,

Ik zou ook jou suggestie graag willen uitproberen.
Maar.....krijg er een fout op dat hij bijgewerkt moet worden voor gebruik op 64 bit systemen.
(alles onder option expeciet tot en met de laatste Byval.

Gr Cor

@edmoor, helaas dat werkt niet. Netjes gedaan wat je vertelde, maar geeft geen reactie.
dus wat ik fout doe?

 

[edmoor]

Dat werkt prima, als de pad informatie maar goed is.
Die van AD1957 werkt ook mooi.
Inderdaad wel even de functie declaraties geschikt maken voor zowel 32- als 64 bit Office.

Probeer deze maar eens: (Code ook wat opgeschoond)

 

[Corrnelis]

Top,

Ga met beide opties graag ermee aan de slag.
Als jullie mij nog kunnen vertellen hoe ik het bijwerk naar de 64 bit versie ben ik super blij.
Kan ik dat ook gaan testen namelijk.

Gr Cor

 

[Corrnelis]

Thanks, ga zo kijken, je bent sneller dan ik kan typen haha

 

[Corrnelis]

Heren,

Beide heel hartelijk dank voor jullie input.
Ik ga dit snel in mijn programma plaatsen.
Super hoe jullie weer geholpen hebben.

Mijn vraag is opgelost, graag tot een volgende keer.

Gr Cor

 

[AD1957]

Die van AD1957 werkt ook mooi.

Na opschonen van de "Meester" nog mooier, weer wat geleerd.:thumb:

 

[Corrnelis]

Beste Mensen,

Helaas moet ik jullie nogmaals om je expertise vragen.
Ik ben volop aan het testen en ik loop er tegen aan dat ik de PDF niet geopend krijg.
Vermoedelijk ligt dit aan het pad.
Alleen wat hier fout aan is, geen flauw idee.
Het is de onedrive locatie waar ik naar verwijs, wellicht is dat het probleem?
Zouden jullie er eens naar willen kijken en mij verder helpen.?

Gr Cor

 

[edmoor]

Krijg je een foutmelding?
Zo ja, welke is dat dan?
Dit is het pad dat je gebruikt:

C:\Users\\rietv\\Testomgeving hoofdloc\\Partijen - Documenten\\Offertes-PDF

 

[Corrnelis]

'Dat is het juist, krijg geen foutmelding, maar kan gewoon de aangeklikte pdf niet openen.

 

[edmoor]

Werkt hier prima.
Je ziet ze wel in je formulier?

 

[Corrnelis]

Ja, krijg ze keurig te zien.
Maar erop klikken gaat dus niet.
Wel selecteren dat wel, gaat alleen niet door