Pfad für PDF Speichern VBA

[Daniel555]

Moin Moin liebe Gemeinde , 

Ich möchte per VBA mit einem Mausklick die vorhandene Excel Datei als PDF speichern. 

Wenn ich in den betreffenden Ordner klicke , den Pfad kopiere und dann in VBA einfüge , dann geht es nicht . Wenn ich hingegen ein Makro aufzeichne und mir dan den Pfad dort heraus hole , funktionier es . 
Das Problem an der Sache ist , wenn ich die Excel Datei schliesse und wieder öffne funktioniert es nicht mehr . Woran liegt das ?

Hier mal mein VBA Code

Dim strName As String
Dim ws As Worksheet
ChDir _
        "I:\Allgemein *****(NAME)*****\Mitarbeiter Gehälter\Stundenberechnung\Abrechnungen Mitarbeiter PDF"
 
Range("A1:H45").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("E8").Value & "_" & Range("B7").Value & "_" & Range("B6").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 

Ist hier etwas grundlegendes am Pfad falsch ? 
Ich bin jetzt per Fernzugriff am Firmenrechner und der Pfad ist von Firmenserver , hat das was damit zutun das das nicht funktioniert ?


vielleicht kann mir ja jemand helfen ?vielen dank schonmal  

[EbyAS]

Hallo,
die Änderung des Pfades kann man auch in den meisten Fällen unterlassen und diesen direkt bei der Ausführung der eigentlichen Anweisung mit übergeben.
Definiere eine weitere Variable, auch den Filenamen kannst Du einer File String Variablen übergeben.

Code:

Dim strName As String
Dim strPath As String

strPath = "I:\Allgemein *****(NAME)*****\Mitarbeiter Gehälter\Stundenberechnung\Abrechnungen Mitarbeiter PDF"
strName = Range("E8").Value & "_" & Range("B7").Value & "_" & Range("B6").Value

Range("A1:H45").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & "\" & strName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

[Daniel555]

Vielen Vielen Dank , 

funktioniert jetzt so wie ich es mir vorstelle . 

Echt ein TOP Forum hier , vielen dank 

Gruß 
Daniel