Goedemiddag,
Ik heb een macro die een PDF op 2 locaties moet opslaan.
De naam van de file staat in cel K7 van een bepaalde sheet
De macro werkt eigenlijk wel goed, want ik krijg zelfs de PDF in mijn beeld te zien (zoals ik wil: OpenAfterPublish:=True).
En krijg aan het einde ook keurig de melding dat het bestand met de juiste naam is opgeslagen.
Alleen het gekke is, de macro slaat deze PDF niet op in de juiste map, maar slaat het op in de locale gebruikersmap C:\User\NameUser\Documents
En dat terwijl locatie 192.168.25.30 gewoon bestaat (je kunt er in de verkenner bijvoorbeeld gewoon naar toe)
Hebben jullie enig idee?
Alvast dank voor de moeite!
Ik heb een macro die een PDF op 2 locaties moet opslaan.
De naam van de file staat in cel K7 van een bepaalde sheet
De macro werkt eigenlijk wel goed, want ik krijg zelfs de PDF in mijn beeld te zien (zoals ik wil: OpenAfterPublish:=True).
En krijg aan het einde ook keurig de melding dat het bestand met de juiste naam is opgeslagen.
Alleen het gekke is, de macro slaat deze PDF niet op in de juiste map, maar slaat het op in de locale gebruikersmap C:\User\NameUser\Documents
En dat terwijl locatie 192.168.25.30 gewoon bestaat (je kunt er in de verkenner bijvoorbeeld gewoon naar toe)
Hebben jullie enig idee?
Code:
ChDir "\\192.168.25.30\Administratie\04-Facturen"
fileSaveName = Range("K7").Value
If fileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
fileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End If
ChDir "\\192.168.25.30\FinancieleAdministratie\01-Debiteuren"
If fileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
fileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
MsgBox "Bestand opgeslagen als " & " " & fileSaveName
Alvast dank voor de moeite!