Van een Factuur een PDF maken met bestandsnaam van een cel

[Citronella]

Hoi, ik kan tussen de reeds geplaatste vragen niet exact vinden wat ik wil.

Ik heb een factuur gemaakt en ik wil een knop waarmee er direct een pdf wordt gegenereerd en waarbij de bestandsnaam de naam is van de combi van de cellen E7 en E15 (desnoods alleen van cel E15) en geplaatst wordt in een map op C schijf met de naam 'Facturen 2016".

Ik heb nu een knop gemaakt (vanuit Formulieren en niet Active-X) als macro maar dan krijgt de pdf altijd dezelfde naam.
Kan iemand mij op weg helpen? Zie een testlayout van de factuur in de bijlage. Bedankt.

Citronella

 

[edmoor]

Probeer deze maar eens:

Sub PDF()
    Dim Pad As String
    Dim Naam As String
    
    Pad = "C:\Users\Paul Huijbrechts\Documents\Ockham's Razor\Projecten\Inner Health Healing\Facturen 2016\"
    Naam = Range("E15") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Pad & Naam, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

 

[roeljongman]

Bekijk bijlage Kopie van testfactuur-1.xlsm

probeer het eens met de code in de sheet. ik kon hem niet direct testen door de specifiek benoemde directory maar het zou moeten werken.

de bestandsnaam begint met Factuur, daarna het nummer en daarna de naam


_____
edit: edmoor wint met een banddikte

 

[Citronella]

Bingo Edmoor, het werkt.:d
Dank voor je snelle reactie.
En Roeljongman, jij ook bedankt voor je reactie, op jouw versie kreeg ik echter een foutmelding.
Sporief naar Edmoor toe ook:thumb:

Groetjes,
C.