Opgelost Macro in excel faktuur opslaan als pdf

[Pummy]

Hallo,
zou graag macro maken om faktuur in excel opslaan als PDFfile met als titel Klntnr(A10)inhoud is vb (7vern an) + faktnr.(K10) (2025.12-001)
Heb al pogingen ondernomen maar lukt niet.
zou er iemand me kunnen helpen.

 

[edmoor]

Welke versie van Office gebruik je?
Waar moet de PDF worden opgeslagen?
En plaats een voorbeeld documentje.

 

[jverkerk]

Het zou zoiets kunnen zijn, maar wel het pad aanpassen en eventueel wat er in M1 staat.
Het zal ongetwijfeld door de experts beter kunnen maar zoiets als dit gebruik ik.

Option Explicit
Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("M1").Value
If Dir("C:\Users\Facturen Excel en PDF\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Facturen Excel en PDF\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub

 

[Pummy]

				Factuur
Tel						Naam:
BTW						Adres:
								Postcode:
								Plaats:
								Land:
Klantnummer	Onderneminsnr.	Datum	Vervaldatum	Factuurnr.
21 SVEGOO		16/12/2025	16/12/2025	20250001
Artikel	Omschrijving	Aantal (ref)	Prijs/stuk	Korting	Totaal	BTW
	OFFICE 365
	ZOU GRAAG KLNR + FACTUURNR
	ALS FILENAAM GEBRUIKEN
	21 SVEGOO 20250001
	PAD=users/reynd/dropbox/faktuur klanten
	macro excel faktuur opslaan naar pdf bestand met klnr +faktrnr als bestandnaam naar pad zie hoger
6	12	21
Bedrag excl.
BTW
					Totaal BTW
					Totaal excl. BTW
					TOTAAL

[td width="13.6364%"]

BTW %

[/td]​

 

[edmoor]

Een plaatje is geen voorbeeld Excel document.

 

[Pummy]

Johan dank voor snel antwoord, heb macro ingevuld maar werkt nog niet. moet vertrekken, maar probeer straks opnieuw.

Grtjs Willy

Bericht automatisch samengevoegd: Vandaag om 10:19

Zie hier het excel factuur bijgevoegd

Grtjs Willy

 

[Warme bakkertje]

Denk dat hij het zo al beter zal doen.
Heb ineens de suggestie van edmoor erin verwerkt.

Sub FT_Opslaan_als_PDF() 'Een bestandsnaam opgeven
    Dim Klantnaam As String, FTnummer As String
    Dim pdfLocatie As String, Volledigenaam As String
    With Blad1
        Klantnaam = .Range("A10").Text
        FTnummer = .Range("K10").Text
        pdfLocatie = Environ("Userprofile") & "\Dropbox\lanostravita - Facturatie\factuur klanten\"
        Volledigenaam = pdfLocatie & Klantnaam & " " & FTnummer
        ' Test of het bestand al bestaat
        If Dir(Volledigenaam) = "" Then ' Zo nee: het PDf bestand maken
            With .PageSetup ' De pagina-eigenschappen instellen
            .PrintArea = "$A$1:$M$42"
            .Orientation = xlPortrait
            End With
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Volledigenaam
            ' Een mededeling
            MsgBox Prompt:="Het PDF bestand is opgeslagen op de locatie:" & vbNewLine & vbNewLine & _
                            pdfLocatie, Buttons:=vbInformation, Title:="PDF opgeslagen"
        Else ' Zo ja: de gebruiker melden dat het bestand al bestaat
            MsgBox Prompt:="Het PDF bestand was al eerder opgeslagen op de locatie:" & vbNewLine & _
                            vbNewLine & pdfLocatie, Buttons:=vbInformation, Title:="PDF al opgeslagen"
        End If
    End With
End Sub

PS: Staan wel klantgegevens in je bestand, weet niet of dit heel belangrijk is ????

 

[edmoor]

Om het flexibeler te maken qua gebruiker kan je dit doen:

pdfLocatie = Environ("Userprofile") & "\Dropbox\lanostravita - Facturatie\Opgemaakte Verkoopsfacturen\"

 

[Pummy]

Heb alles netjes gecopieerd en in macro geplakt. Krijg dadelijk bericht compileerfout er word end sub verwacht.
Mijn vraag is waar end sub te plaatsen?

 

[Warme bakkertje]

Dan heb je waarschijnlijk iets vergeten want dat moet helemaal onderaan de code.

 

[edmoor]

Zoals al staat in #7.

 

[Pummy]

zo staat het in de macro
ub Macro3()
'
' Macro3 Macro
'

'
Sub FT_Opslaan_als_PDF() 'Een bestandsnaam opgeven
Dim Klantnaam As String, FTnummer As String
Dim pdfLocatie As String, Volledigenaam As String
With Blad1
Klantnaam = .Range("A10").Text
FTnummer = .Range("K10").Text
pdfLocatie = Environ("Userprofile") & "\Dropbox\lanostravita - Facturatie\factuur klanten\"
Volledigenaam = pdfLocatie & Klantnaam & " " & FTnummer
' Test of het bestand al bestaat
If Dir(Volledigenaam) = "" Then ' Zo nee: het PDf bestand maken
With .PageSetup ' De pagina-eigenschappen instellen
.PrintArea = "$A$1:$M$42"
.Orientation = xlPortrait
End With
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Volledigenaam
' Een mededeling
MsgBox Prompt:="Het PDF bestand is opgeslagen op de locatie:" & vbNewLine & vbNewLine & _
pdfLocatie, Buttons:=vbInformation, Title:="PDF opgeslagen"
Else ' Zo ja: de gebruiker melden dat het bestand al bestaat
MsgBox Prompt:="Het PDF bestand was al eerder opgeslagen op de locatie:" & vbNewLine & _
vbNewLine & pdfLocatie, Buttons:=vbInformation, Title:="PDF al opgeslagen"
End If
End With
End Sub

er staat toch end sub

 

[edmoor]

Dit staat niet in die macro:

ub Macro3()
'
' Macro3 Macro
'

'

Kennelijk staat er bij jou dan: Sub Macro3()
Zonder End Sub.

 

[Warme bakkertje]

Kopieer en plak wat er staat in Post#7, zonder iets voor of achter.

 

[Pummy]

ok, heb het overtollige gewist. macro laten lopen.
macro gestopt op vet gedrukt

Sub FT_Opslaan_als_PDF() 'Een bestandsnaam opgeven
Dim Klantnaam As String, FTnummer As String
Dim pdfLocatie As String, Volledigenaam As String
With Blad1
Klantnaam = .Range("A10").Text
FTnummer = .Range("K10").Text
pdfLocatie = Environ("Userprofile") & "\Dropbox\lanostravita - Facturatie\factuur klanten\"
Volledigenaam = pdfLocatie & Klantnaam & " " & FTnummer
' Test of het bestand al bestaat
If Dir(Volledigenaam) = "" Then ' Zo nee: het PDf bestand maken
With .PageSetup ' De pagina-eigenschappen instellen
.PrintArea = "$A$1:$M$42"
.Orientation = xlPortrait
End With
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Volledigenaam
' Een mededeling
MsgBox Prompt:="Het PDF bestand is opgeslagen op de locatie:" & vbNewLine & vbNewLine & _
pdfLocatie, Buttons:=vbInformation, Title:="PDF opgeslagen"
Else ' Zo ja: de gebruiker melden dat het bestand al bestaat
MsgBox Prompt:="Het PDF bestand was al eerder opgeslagen op de locatie:" & vbNewLine & _
vbNewLine & pdfLocatie, Buttons:=vbInformation, Title:="PDF al opgeslagen"
End If
End With
End Sub

 

[edmoor]

De macro werkt prima.
Bestaat de pdfLocatie wel?

 

[Warme bakkertje]

Hoe ziet je factuurnummer eruit want in je 1ste post schrijf je het zo 2025.12-001 en in je 4de post ziet
het er zo uit 202512001.

 

[Pummy]

het is het 2de nummer

Bericht automatisch samengevoegd: Vandaag om 18:03

Edmor zou ik die lijn moeten vervangen door
pdfLocatie = Environ("Userprofile") & "\Dropbox\lanostravita - Facturatie\factuur klanten\"

 

[Warme bakkertje]

Bestaat deze locatie echt op je HD ?
"C:\Users\reynd\Dropbox\lanostravita - Facturatie\factuur klanten\"

 

[Pummy]

deze is de locatie

"C:\Users\reynd\Dropbox\factuur KLANTEN\