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\"