Map verwijzing in macro

[rjwerf]

Goede avond, ik weet niet of ik het goed omschrijf maar met jullie hulp heb ik een factuur prog in excel gemaakt.
Deze slaat ook de factuur op op een vaste lokatie.
Als ik het bestand nu verplaats of op een andere pc zet, gaat deze lokatie natuurlijk fout en moet ik het handmatig aanpassen.

Kan ik de factuur ook in een lokatie plaatsen die onder de huidige map ligt waar het excel bestand staat?
Dus niet meer op c:\iets\ergens\verweg\onvindbaar\factuur\ maar in in ..\factuur\

 

[HierEnNu]

Natuurlijk, dan moet je het pad in de VBA-code aanpassen in de gewenste locatie.

 

[danny147]

Beste rjwerf

Kan je de code hier plaatsen, dan kunnen we ze aanpassen.

Het zou zo iets moeten zijn:

Pad = ActiveWorkbook.Path

Groetjes Danny. :thumb:

 

[rjwerf]

mijn huidige stukje VBA is

Sub opslaan_als_PDF()
'
' Printen Macro
' Printen en opslaan als .pdf
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"\\STORA\MijnBestanden\MijnDocumenten\Backup_pietenatelier_factuur\pietenatelier\Facturen 2011\Facturen\" & Range("C3") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
' Mededeling
MsgBox ("Factuur Opgeslagen in \\STORA\MijnBestanden\MijnDocumenten\Backup_pietenatelier_factuur\pietenatelier\Facturen 2011\Facturen\!")
End Sub

 

[oeldere]

Beste rjwerf,

zoals al is aangegeven dien de onderstaande tekst in je VBA:

"\\STORA\MijnBestanden\MijnDocumenten\Backup_pietenatelier_factuur\pietenatelier\Facturen 2011\Facturen\"

aan te passen in je directorie waar deze faktuur wel dient te worden opgeslagen.

P.s. pas dan ook de msg-box aan.

 

[rjwerf]

Ik ben nou juist naar de oplossing dat ik hem niet hoef aan te passen

 

[oeldere]

Ik ben nou juist [COLOR="darkorange"]op zoek[/COLOR]  naar de oplossing dat ik hem niet hoef aan te passen

Hieruit concludeer ik dan dat de bestanden niet altijd in dezelfde map wordt opgeslagen.

Hoe kan excel (of VBA) dan weten, zonder dat jij dat opgeeft, welke directory dit dient de zijn?

Of zit er een logica in de plaats (b.v. op naam), maar dat dien je dan in je vraagstelling even aan te geven.

 

[danny147]

Beste rjwerf

Hier heb je er nog eentje voor je bestand op te slaan in dezelfde map.

Sub Pdf_maken()

Dim Pad As String, BestandsNaam As String

Pad = ActiveWorkbook.Path + "\"
BestandsNaam = Sheets("Sheet3").Range("E9").Value
Sheets("Factuur").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & BestandsNaam, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Je hoeft enkel cel E9 in Blad3 te wijzigen..

Groetjes Danny. :thumb:

 

[rjwerf]

SUPER precies de oplossing die ik zocht.. Bedankt :d