Beste,
Met deze code die ik op het forum gevonden heb (waarvoor dank), sla ik een excel-bestand op als een pdf-bestand in een vooraf gedefinieerde map. Maar ik zou het graag opslaan in dezefde map als het excel-bestand. Hoe doe ik dat?
Met deze code die ik op het forum gevonden heb (waarvoor dank), sla ik een excel-bestand op als een pdf-bestand in een vooraf gedefinieerde map. Maar ik zou het graag opslaan in dezefde map als het excel-bestand. Hoe doe ik dat?
Code:
Sub OpslaanPDF()
PADPDF = "C:\Users\Gebruiker\Documents\Geert CenV\"
If [H31] = 0.06 Then
Sheets(Array("factuur", "BTW attest 6%")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PADPDF & Range("C10") & Format(Range("B16"), "ddmmyy") & Range("D16") _
& Range("E16") & "met BTW_attest" & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox ("PDF-bestand met attest is aangemaakt")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PADPDF & Range("C10") & Format(Range("B16"), "ddmmyy") & Range("D16") _
& Range("E16") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox ("PDF-bestand is aangemaakt")
End If
End Sub