Sheet opslaan als pdf in huidige werkmap

[DieBe]

Ik ben een excel map aan het maken voor meer en minderwerk. Hierbij heb ik op het voorblad een overzicht van de achterliggende tabbladen. Nu wil ik op het voorblad graag een knop plaatsen waarbij ik de achterliggende sheet kan opslaan als pdf in dezelfde map als waarin het werkmap staat. Ik heb al diverse voorbeelden gezien maar die slaan de active sheet op in een vooraf ingestelde map. Wie kan mij helpen?

 

[edmoor]

Gebruik als pad: ThisWorkbook.Path & "\"

 

[DieBe]

Bedankt voor uw reactie. Ik zal dit gaan proberen. Nu alleen nog een code om niet de active sheet op te slaan als pdf maar tabblad 2.3 of 5 bijv. Misschien kunt u die code plaatsen in het voorbeeld bestandje?

 

[edmoor]

Zo bijvoorbeeld:

Sheets("2.3").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="E:\Diversen\Bestandsnaam.pdf", _
    OpenAfterPublish:=True

 

[DieBe]

Bedankt. Het werkt. Nu kan ik verder met het document.