Opslaan in PDF en Excel - Macro

[mark1987vw]

Goedemiddag,

Nu heb ik nog 1 vraag waar ik niet uitkom weten ze dat hier wel.

De vorige keer is mij verteld hoe het excel bestand opgeslagen moet worden. Nu wil ik dat die ook wordt opgeslagen als PDF, als het kan in de zelfde macro.
Nu heb ik wel eea gevonden en een beetje aangepast maar hij blijft een foutmelding geven. Waarschijnlijk iets heel logisch maar ik kom er niet

Sub OpslaanAls()

'OPSLAAN EXCEL

Pad = "Y:\Administratie\Kassa\Restaurant\Kassastaten\"
Doc = Range("A1").Value & " " & Range("C1").Value & "-" & Range("D1").Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Pad & Doc

'OPSLAAN PDF

PADPDF = "Y:\Administratie\Kassa\Restaurant\Kassastaten\PDF\"
DOCPDF = ActiveSheet.Range("A1").Value & " " & ActiveSheet.Range("C1").Value & "-" & ActiveSheet.Range("D1").Value & ".PDF"
[B]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PADPDF & DOCPDF & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True[/B]

MsgBox prompt:="De kassastaat is opgeslagen! " & vbNewLine & "PDF: " & DOCPDF & ".PDF" & vbNewLine & "EXCEL: " & Doc & ".xlsm"

End Sub

Daarbij wil ik ook dat die de gehele sheet opslaat.
Bij de dik gedrukte zin geeft die de foutmelding maar ik kan niet vinden op internet hoe het dan wel moet. Ik dacht misschien moet ik de twee scheiden ofzo maar ik kom er niet uit. Ik hoop dat iemand mij kan helpen.

Bedankt alvast!

 

[glda19]

probleem is al er al een blad bestaat met die naam volgens mij

 

[mark1987vw]

Hoe bedoel je dat?

 

[glda19]

bestaat het bestand al dan gaat het fout
Misschien hier wat aan
https://stackoverflow.com/questions/32864662/excel-save-as-pdf-and-overwrite-existing

 

[mark1987vw]

Ik heb het probleem al gevonden. De map bestond niet