macro to save to network
 

hello,

I have a problem saving and excel workbook. I want the workbook to save to
several network locations without prompting to replace which I have done as
per below;

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"\\Stevebrant\SharedDocs\Draught.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

But if the networked computer is offline the macro fails - can I get the
macro to only save if the computer is turned on or to continue regardless?

Help me please!!

macro to save to network
 

Did you try

On Error Resume Next
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"\\Stevebrant\SharedDocs\Draught.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
On Error goto 0

--
Regards,
Tom Ogilvy


"jim hardwick" wrote in message
...
hello,

I have a problem saving and excel workbook. I want the workbook to save to
several network locations without prompting to replace which I have done
as
per below;

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"\\Stevebrant\SharedDocs\Draught.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

But if the networked computer is offline the macro fails - can I get the
macro to only save if the computer is turned on or to continue regardless?

Help me please!!