Saving a workbook to a shared drive

[CaptainK]

Hello,

I am hoping to have one of my userforms save a document to a shared drive called "Production". Here is my code as of right now:

dim today as string
Workbooks.add
today = Date
ActiveWorkbook.SaveAs "Q://Manufacturing/Preliminary" & today

My issue is that this is a shared workbook, so many people will be using this macro on many computers different, and not everyone has assigned the "Production" drive to the same letter, e.g. for some people it is Q drive for other people it is P drive or S drive or whatever. Is there any trick out there to working around this?

[TMS]

Try something like:

NWPath="\\Server-xxx\Top Level Folder yyy\Folder zzz"

and then:

ActiveWorkbook.SaveAs NWPath & "\Manufacturing\Preliminary" & today

I suspect that you might need to format the date to remove forward slashes.


The drive letter will depend on how many shared folders each user has and the order they are allocated in the profile/login script. Ideally, shared drives should have a fixed drive letter rather than just allocating the next available drive letter. However, that approach has to be limited otherwise you could run out of drive letters.


Regards, TMS