Pamcenje fajla pod imenom zadatim u ćeliji

Primenio sam kod za pamcenje fajla, pri cemu novo ime dobija na osnovu unosa u odredjenu celiju, ali problem nastaje kada hocu da zadam putanju. Kao rezultat dobijem ime promenljive, kada je upisem na kraju putanje.
Ocito da se putanja zadaje na drugi nacin, koji ne umem da resim?
Kada fajl pamtim pod drugim imenom istovremeno bih trebao da novi fajl ne sadrzi postojeci kod.

Potpis

Milan K.

Ovako bi trebalo ako sam dobro razume sta ti treba.


ImeFajla = Sheets("Nalog").Range("C3").Text ovo je u redu

e sada

ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\My Documents\KopijeNaloga\" & ImeFajla & ".xls" , FileFormat:=xlOpenXMLWorkbook,CreateBackup:=False

bitno je da ispred i iza svakog & bude razmak (1 space)

Nisam stigao da pogledam pre.
Greska se javlja pri izvrsenju u zadnjoj liniji (Method 'SaveAs' of object'_Workbook' failed), a ja ne vidim gde.



Hteo sam da korisnik po ispisu svakog naloga zapamti sadrzaj naloga pod imenom "broj naloga", datum i sadrzaj, pri cemu zapamcen faj ne treba da sadrzi i macro.
U svakom slucaju hvala i na dosadasnjoj pomoci.

Potpis

Milan K.

Listajuci arhivu foruma dosao sam do originalnog resenja za ovaj problem koji je postavio JPeca davne 2006.godine.
Zbog originalnosti i jednostavnosti potsecam na njega:

Sub MySave()
Dim unos As String
unos = Sheets(1).Range("B5").Text
ActiveWorkbook.SaveAs Filename:=unos
End Sub

Time se dokumenat arhivira u MyDocument pod nazivom koji je definisan u celiji B5. Tu je data i napomena da se promenljivoj UNOS moze dodati putanja, tako da se fajl ne kopira u MyDocument, vec u bilo koji drugi folder. E to mi nije poslo za rukom, pa bih zamolio Jpecu da samo to pojasni. Naprimer, hocu da mi se fajl zapamti u : "C:\ARHIVA\PLATE"
Hvala unapred.

Da nekad nije loše koristiti pretraživanja, nakupilo se već dosta odgovora na forumu. Doduše ne vidim ništa originalno u rešenju - praktično je isto kao ovo što je napisao milemile2.
Dodavanja putanje je krajnje jednostavno. Promeni red u kome se postavlja promenljiva unos

Pretpostavlja se da postoji folder C:\ARHIVA\PLATE. Ne znam kakav si ti problem imao, ali ovo sam testirao na verziji 2003 i radi.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?