export file as PDF but with the name as mentioned in cell D27 in sheet "Faktuur"

[FrankLinssen]

The macro currently has the following

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"V:\ingrid\Book9.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False

I want this to be changed as such that it takes the value from cell D27 in tab "Faktuur".

Also note that in cell D27 there is a formula (=Fact_nr), so the name of the to be exported PDF should be the outcome of the formula in cell D27 e.g. "ZK2019/SBBZo06"

I hope my question is clear.

 

[John_w]

The "/" in "ZK2019/SBBZo06" is not a valid character in a file name, because it represents a subfolder separator. This code therefore replaces the "/" with "_" to create V:\ingrid\ZK2019_SBBZo06.pdf.

    Dim PDFfile As String
    PDFfile = "V:\ingrid\" & Replace(Worksheets("Faktuur").Range("D27").Value, "/", "_") & ".pdf"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFfile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[FrankLinssen]

The "/" in "ZK2019/SBBZo06" is not a valid character in a file name, because it represents a subfolder separator. This code therefore replaces the "/" with "_" to create V:\ingrid\ZK2019_SBBZo06.pdf.

    Dim PDFfile As String
    PDFfile = "V:\ingrid\" & Replace(Worksheets("Faktuur").Range("D27").Value, "/", "_") & ".pdf"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFfile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Thanks John.

Q1: after adjusting the macro I get a Run-time error '-2147024773 (8007007b)':
Document not saved

Any idea what could be causing this?

Q2: How should the above be written exactly in case of the Invoice-numbers already having the "_" instead of the "/"
Thanks in advance

 

[John_w]

1. Don't know. Is it a valid file name? Add:

MsgBox PDFfile

2.

PDFfile = "V:\ingrid\" & Worksheets("Faktuur").Range("D27").Value & ".pdf"