file saven met naam

[jan excel]

Hallo experts,


I mijn file kan de gebruiker op een button klikken en dan wordt de file naar een bepaalde locatie geschreven (in dit voorbeeld naar E\Test\... met de file naam dat vermeld staat in cel A132 in Excel.
Hiervoor gebruilk ik onderstaande code

ActiveWorkbook.SaveAs Filename:="E:\test\" & Sheets("gegevens").Range("A132")

Mijn vraag is of het mogelijk alleen de save optie te gebruiken maar dan wel opslaan onder de naam wat in cel A132 staat maar naar actieve schijf cq lokatie.
Wat ik eigenlijk wil is dat de gebruiker niet vast zit aan een bepaalde netwerk of schijf.

Misschien kan het ook met saveas maar mij wil dit nog niet lukken.

Voorbeeld ter verduidelijking:

gebruiker heeft bestand geopend vanuit een usb stick dit lokatie L:\
Het bestand heet nu opdracht blanco.xls
In cel A132 staat de tekst "opdracht 124578 "

Door op de button opslaan te klikken dient dus de file naam te worden opdracht 124578.xls,[/B] Deze dient dan te worden op dezelfde locatie dan van waaruit het is geopend.

Hopelijk is dit mogellijk en weten jullie de oplossing.

groet,
Jan Evers.

 

[spaarie]

Gebruik ThisWorkbook.Path of ActiveWorkbook.Path.

Bijvoorbeeld:

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("gegevens").Range("A132").Value

 

[jan excel]

Beste Spaarie,

Sorry voor de late reactie, ben een paar dagen weggeweest. Bij deze als nog bedankt voor je oplossing.

groet,
Jan E