How To Save Program To File On Network Folder?

[aedctalk]

Hi So currently i use the below to save my file

Dim myFolder As String, mySheet As String
myFolder = Sheets("Configuration").Range("J21").Value
ChDir myFolder

ActiveWorkbook.SaveAs Filename:="BOWSER"



==========

My J21 is C:\Documents and Settings\Manager\Desktop\BOWSER

However.. I'm really want to save to C drive on another computer. The path is \\1031mbo3\c\Documents and Settings\Manager\Desktop\BOWSER

However.. It doesnt save to there. It doesnt work for some reason.

Any ideas on how i can save the program via a macro... either without having to worry about pathnames or save to c drive on another computer's folder within my network?

Thanks so much!!

 

[Kenneth Hobson]

I doubt that the user has given you permission to do that. Check their Share folders Start > Network.

 

[aedctalk]

Well its my job. all our computers are on network where we can access folders on other computers. I thought saving to file on another computer might be possible.

Can i just "save file" and it would work? (so long as i open it from file on other computer?

Instead of using save file as? (which is only way i've tried)?

 

[shg]

ChDir won't change drives.

Just specify the fully qualified filename (path and file) when you do the SaveAs, and it will work fine if you have write permission.

 

[aedctalk]

wow shg! thanks! that did work! This whole time i'd been trying with Chdisk!

Just putting the exact path name made it work!

Thanks so much!!


One more question it leads me to..

I'm configuring this program from a bunch of bussinesses within my jobs disctrict. So each business i would prefer to be able to specify their own pathname...

Is there any way that will be possible? without them having to go into vba and change the value there?

I'd like to still be able for them to put the path name in Configuration J21..

Any ideas? Thanks so much!

 

[Kenneth Hobson]

You can always add an InputBox, Userform, or from the cell.

ActiveWorkbook.SaveAs Filename:=Sheets("Configuration").Range("J21").Value & "BOWSER.xls"

You may have to concatenate a "/" or a "\" to your J21 value.