Pad naar opslaglokatie in variabele plaatsen

[SeringZH]

Ik heb verschillende tabbladen die ik op sla als PDF
Dit werkt goed, maar ik wil eigenlijk een variabele aanmaken waar in het pad naar de bestemde lokatie staat.
Hoe moet ik dat doen?

 

[edmoor]

Laat eens zien wat je nu hebt en waar je de waarde voor die variabele vandaan wilt halen.

 

[SeringZH]

Private Sub cmdDb1lPDF_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Documenten\Verzenden" & Range("C17") & " " & Range("A8"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub

Het gaat er me om dat ik voor Filename een variabele kan maken, dus voor ( D:\Documenten\Verzenden\)
Het werkt dus gewoon goed, maar ik dacht misschien kan dit met een variabele

 

[edmoor]

Dat kan. En dit is voldoende:

Private Sub cmdDb1lPDF_Click()
    Pad = "D:\Documenten\Verzenden\"
    Bestand = Range("C17") & " " & Range("A8")
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & Bestand, OpenAfterPublish:=True
    ActiveWorkbook.Save
End Sub

 

[SeringZH]

Dit werkt niet, er wordt niets opgeslagen.
Mijn bedoeling is dat ik het pad maar 1x hoeft in te vullen in een variabele en bij alle bladen dus alleen de variabele.

 

[HSV]

Maak de variabele Public.

 

[edmoor]

Dat werkt prima, maar ik kan natuurlijk niet zien wat je C17 en A8 hebt staan.
En wat HSV zegt.

 

[SeringZH]

Het is gelukt om te reageren. Steeds wel ingelogd maar geen knop om te reageren.
C17 = unieknummer en A8 = een adres.
Wordt dus als PDF onder deze naam opgeslagen.
Maar het werkt dus niet.
Waar zet ik de variabele, zodat deze voor meer tabbladen werkt en hoe Public maken?

 

[edmoor]

Dim Bestand As String
Dim Pad As String

Private Sub cmdDb1lPDF_Click()
    Pad = "D:\Documenten\Verzenden\"
    Bestand = Range("C17") & " " & Range("A8")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & Bestand, OpenAfterPublish:=True
    ActiveWorkbook.Save
End Sub

"C17 = unieknummer en A8 = een adres."
Daar kan ik dus nog steeds niet aan zien wat er staat.
Maar goed, dat zal wel in orde zijn.

 

[SeringZH]

Dit staat er, maar er wordt geen PDF gemaakt en opgeslagen

Private Sub cmdDb1lPDF_Click()
Dim Pad As Sting
Dim Bestand As String
Pad = "D:\Documenten\Verzenden"
Bestand = Range("C17") & " " & Range("A8")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & Bestand, OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub

 

[edmoor]

Nee, wat ik schreef staat er niet.
Kijk eens goed...

 

[SeringZH]

Sorry, was inderdaad verkeerd.
Nu krijg ik de melding dat het gegevenstype niet gedefineerd is

 

[edmoor]

Plaats je document, dit wordt teveel speculeren.

 

[SeringZH]

Bedankt voor de moeite, maar ik laat het maar zoals het is, want dat werkt in ieder geval.
Het was voor mij ook maar een probeersel of dat zou werken.

 

[edmoor]

En dat kan ook prima.

 

[SeringZH]

Moeilijk gedacht, maar een macro opslaan voor dit werkblad en alle tabbladen kunnen als PDF worden opgeslagen met de zelfde macro. Is dus 1x schrijven...

 

[edmoor]

Wat ik al zei, wat je wilt kan prima.