Per Makro als PDF auf Desktop speichern egal welcher User/PC

[Daniel555]

Hallo liebe Gemeinde , 

ich habe eine Tabelle die von mehreren Usern auf verschiedenen Pc´s benutzt werden soll.
In der Tabelle ist ein Button mit der Aufgabe per Klick automatisch ein PDF zu erzeugen und zu speichern.
Mir fehlt nun so etwas wie ein allgemeiner Pfad für den Desktop .



Sub PDF_Erzeugen()


Dim Dateiname As String

Dateiname = Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Range("A1:Q42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub 





Führer ich das Makro jetzt aus aus, so wird bei mir in Dokumente gespeichert. 
Es soll aber egal wer es auf welchem PC benutzt , immer auf dem Desktop gespeichert werden .

vielen dank im voraus

mfg
Daniel

[Daniel555]

Moin Moin 

Ich bräuchte bitte eure Hilfe bei folgendem VBA Code



Sub PDF_Erzeugen()


Dim Dateiname As String

Dateiname = Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Range("A1:Q42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True





End Sub




Die Tabelle mit diesem Code soll von verschiedenen Benutzern an verschiedenen PC´s ausgeführt werden könne. Dabei Soll jedes mal die PDF auf dem Desktop gespeichert werden.
Aktuell wird es immer bei mir auf dem PC in Dokumente gespeihert. 

vielen Dank im vorraus

mfg
Daniel

[volti]

Hallo Daniel,

so sollte das funktionieren....

Code:

dateiname = Environ$("userprofile") & "\desktop\" & Range("N5") & "_" & Range("D3") & "_" & "KW" & Range("I5") & ".pdf"

Gruß
Karl-Heinz

[Fennek]

Hallo,

in VBA sollte gehen:

Code:

myDesktop = environ("userprofile") & "\Desktop\"

mfg

[Daniel555]

Vielen Dank   funktioniert

[Daniel555]

Vielen Dank

[Daniel555]

Moin Moin , 

Nun hat sich folgendes Problem ergeben.
Auf meinem PC funktioniert das wunderbar, allerdings auf einem anderen nicht . Dort bekomme ich Error 400

Vielen Dank im Voraus 

Mit freundlichen Grüßen

Daniel

[Luschi]

Hallo Daniel,

auf meinem PC hat Onedrive den Desktop-Ordner hierhin verschoben:

Code:

myDesktop = Environ("OneDrive") & "\Desktop\"

Gruß von Luschi
aus klein-Paris

[mumpel]

Ist der andere PC vielleicht ein Mac-OS? Dort funktionieren die Umgebungsvariablen nicht. Oder möglicherweise fehlende Rechte.

[Daniel555]

Nein der zweite Laptop is genau der selbe Laptop. 
OneDrive anstatt userprofil bringt keinen Fortschritt 🙁.

Mit freundlichen Grüßen
Daniel