I have a workbook on a shared drive. I have a macro that tells it to
save a copy in a certain folder on my desktop. Is it possible to save
a copy in other locations (ie other peoples desktops) if I have their
directory?

If so, how do I add an additional directory....? (use commas after
each, or some special character to string them?)


Sub Macro3()


'
ChDir "C:\Documents and Settings\JWALD\Desktop\attendance rosters"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JWALD\Desktop\attendance rosters
\Book200.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Use a second Saveas statement with a dfferent filename.

"J.W. Aldridge" wrote:

I have a workbook on a shared drive. I have a macro that tells it to
save a copy in a certain folder on my desktop. Is it possible to save
a copy in other locations (ie other peoples desktops) if I have their
directory?

If so, how do I add an additional directory....? (use commas after
each, or some special character to string them?)


Sub Macro3()


'
ChDir "C:\Documents and Settings\JWALD\Desktop\attendance rosters"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JWALD\Desktop\attendance rosters
\Book200.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Or maybe .savecopyas

Then the activeworkbook won't change names or locations.



Joel wrote:

Use a second Saveas statement with a dfferent filename.

"J.W. Aldridge" wrote:

I have a workbook on a shared drive. I have a macro that tells it to
save a copy in a certain folder on my desktop. Is it possible to save
a copy in other locations (ie other peoples desktops) if I have their
directory?

If so, how do I add an additional directory....? (use commas after
each, or some special character to string them?)


Sub Macro3()


'
ChDir "C:\Documents and Settings\JWALD\Desktop\attendance rosters"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JWALD\Desktop\attendance rosters
\Book200.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub



--

Dave Peterson

Thanx... Very helpful info.. (can use that in the future)

But my original question was that can I save it from a shared drive to
someone else's pc.

Example: Using the following code, JALD is the users name. If I know
the computer name, how could I get it to work?


Thanx



Sub Macro4()
'
' Macro4 Macro
' Macro recorded 9/28/2007 by FTN
'

'
ChDir "C:\Documents and Settings\JALD\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JALD\Desktop\Book200.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

I'm not sure if it's possible.

Maybe if that other user shares the desktop???

I'd ask in a windows forum.

"J.W. Aldridge" wrote:

Thanx... Very helpful info.. (can use that in the future)

But my original question was that can I save it from a shared drive to
someone else's pc.

Example: Using the following code, JALD is the users name. If I know
the computer name, how could I get it to work?

Thanx

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 9/28/2007 by FTN
'

'
ChDir "C:\Documents and Settings\JALD\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JALD\Desktop\Book200.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

--

Dave Peterson