Opgelost Macro in excel faktuur opslaan als pdf

[Warme bakkertje]

Wijzig dan naar

pdfLocatie = Environ("Userprofile") & "\Dropbox\factuur klanten\"

 

[Pummy]

Bedankt iedereen die een steentje hebben bijgedragen aan mijn macro, heb uiteindelijk wat weggelaten en wat aangepast en het werkt. Nogmaals iedereen bedankt.
Grtjs Willy
zo werkt het
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 = "C:\Users\reynd\Dropbox\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
ActiveSheet.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]

.Zoals al eerder genoemd kan je dit:

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

vervangen door:

pdfLocatie = Environ("Userprofile") & "\Dropbox\factuur KLANTEN\"

Om het onafhankelijk van de gebruikersnaam te maken.

Tip:
Als je hier code plaatst, zet dat dan in codetags.
Zie de link in mijn handtekening.