Bestand opslaan in dezelfde map als waar het origineel bestand staat.

[davylenders123]

Ik heb dit al , deze slaat nu in een bepaalde map op" C:\Users\Data_2\Documents".

Maar kan er ook voor gezorgd worden dat dit wordt opgeslagen in de map waar het originele excel bestand staat ?
Zoja wat moet ik dan juist wijzigen ?

Sub opslaan()
  Pad = "C:\Users\Data_2\Documents\"
    Bst = "Offerte en Facturen  " & [Basisinstellingen!C5] & ".xls"
    
    ActiveWorkbook.SaveAs Filename:=Pad & Bst
End Sub

 

[VenA]

Kijk een naar Thisworkbook.path

 

[davylenders123]

VenA

Sorry maar ben niet helemaal mee wat je bedoeld

 

[VenA]

Gebruik dan de ingebouwde help of het www maar even.

 

[roeljongman]

Je kunt naast een specifiek pad aanwijzen ook een dynamisch pad aanwijzen zoals Thisworkbook.path daar staat voor VBA hetzelfde als wat jij hebt getypt achter Pad =

Sub opslaan()
  Pad = Thisworkbook.path
    Bst = "Offerte en Facturen  " & [Basisinstellingen!C5] & ".xls"
    
    ActiveWorkbook.SaveAs Filename:=Pad & Bst
End Sub

 

[edmoor]

Kleine aanvulling:

ActiveWorkbook.SaveAs Filename:=Pad [COLOR="#FF0000"]& "\"[/COLOR] & Bst

 

[roeljongman]

lol, die fout moet ik in mijn eigen code er ook altijd uithalen na de eerste test van de code.. deze code had ik niet getest leek zo makkelijk

 

[davylenders123]

Bedankt voor de snelle hulp :thumb:

Met het www en help ben ik niet verder geraakt.

 

[edmoor]

Moet je eens kijken wat er gebeurt als je gewoon Thisworkbook.path in Google ingeeft, zoals VenA voorstelde...

 

[VenA]

De noodzaak van de variabelen zie ik zo niet. Wel even handig om te debuggen (maar dan moet dat ook gebeuren) en daarna kan je ze ook weglaten.

Sub VenA()
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\offerte en Facturen  " & Sheets("Basisinstellingen").Range("C5").Value & ".xls"
End Sub