beste helpers
ik heb dit:
er komt een foutmelding
en onderstaand gedeelte van de code kleurt geel
wie ziet wat er waar fout zit
bvd
Don
ik heb dit:
Code:
Private Sub CommandButton2_Click()
Dim bestandnaam As String
bestandnaam = "D:\formulier\" & Sheets("Aanvraag2").Range("d14").Value
If Dir(bestandnaam, vbDirectory) = vbNullString Then MkDir bestandnaam
naam = Sheets("Aanvraag2").Range("d14").Value
ChDir "D:\formulier\" & naam
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "Het bestand is opgeslagen in " & bestandnaam & "\" & naam & "-Aanvraag2.pdf"
End Sub
er komt een foutmelding
en onderstaand gedeelte van de code kleurt geel
Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
bvd
Don