foutje in formule opslaan als

[nobeleyes]

Hoi,

Ik heb een VBA proberen te maken die:
een werkblad opslaat als PDF

voor de naam neemt hij "leverancier" + naam cel e1 + datum

er loopt iets mis maar het lukt me niet het te vinden...

Private Sub CommandButton1_Click()
ChDir "D:\Mijn documenten\bonnen PDF"
ActiveSheet.Range("A1:h49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"D:\Mijn documenten\bonnen PDF\_& "Leverancier" & Range("e1").Value & "_" & Format(Date, "ddmmyyyy").pdf"

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
MsgBox ("Het bestand is opgeslagen.")
End Sub

 

[Cobbe]

Pas deze regel eens aan:

"D:\Mijn documenten\bonnen PDF\" & "Leverancier _" & Range("e1").Value & "_" & Format(Date, "ddmmyyyy") & ".pdf"

 

[nobeleyes]

Thx hij werkt