Automatisch opslaan van factuur nummer

[rik5522]

Beste

Ik heb een vraag. Ik heb een macro gemaakt in deze factuur die ik gebruik. Alleen krijg ik het niet voor elkaar om de factuur op te slaan met het factuur nummer echt achter. Weet iemand van jullie hoe ik dit kan oplossen?

Zodra ik opslaan als PDF druk wil ik dat hij opslaat met het Factuur nummer dat in E15 staat

 

[AHulpje]

Probeer het eens zo:

Sub PDF()
    Dim FacName As String
    FacName = "C:\Users\info\OneDrive\Dokumente\test map\Factuur" & Range("E15").text & ".pdf"
    If Dir(FacName) <> "" Then
        MsgBox "Het bestand: " & FacName & " bestaat reeds"
        Exit Sub
    Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FacName, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
    End If
End Sub

 

[JEC.]

Stel je printbereik in, daarna

sheet1.exportasfixedformat 0, "C:\Users\Downloads\"&[e15]&".pdf"

 

[Warme bakkertje]

Die & ".pdf" is overbodig. Naargelang welk format je gebruikt wordt de juiste extensie er automatisch aan toegevoegd.

 

[AHulpje]

Om te controleren of het bestand al bestaat is het wel nodig.

 

[Warme bakkertje]

Idd. maar mijn antwoord betrof enkel en alleen het gebruik van ExportAsFixedFormat.

 

[JEC.]

Klopt, ik blijf het uit gewoonte doen