Run-Time Error 1004

[daviho]

I have a file that uses an active x control box to save the file into two locations. The code is as follows:
Code<<Sub SaveToLocations()'UpdateByExtendoffice20160623
ActiveWorkbook.SaveCopyAs "A:\PAULA & RUTH\CAPITAL ASSETS" + ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "P:\Rail Car Inventory\Capital Project" + ActiveWorkbook.Name
ActiveWorkbook.Save
End Sub>>

The error occurs when I try to save the file when it was opened from the second location.

Any suggestion on how to allow saving to occur from either location and update the other?

 

[Kenneth Hobson]

Did you not need a backslash character after Assets and Project? & is the concatenation character, not +.

FileFormat may need to be set as the second parameter but is usually only a problem when saving to other format than copy.

activeworkbook.fileformat

 

[daviho]

Thanks Kenneth,

I've made the changes suggested but I still get the same result. The primary location will save to both, but the secondary will receive the run-time error I've even tried to list both as .fileformat. This will update both when the file is opened with the primary location but only the secondary location when utilizing the secondary file location. Would you have any other suggestions?

Sub SaveToLocations()'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "A:\PAULA & RUTH\CAPITAL ASSETS\" & ActiveWorkbook.FileFormat
    ActiveWorkbook.SaveCopyAs "P:\Rail Car Inventory\Capital Project\" & ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

 

[Kenneth Hobson]

Why not save the file first? That way, your file will have a name with a file extension. You might want to make sure that you want the ActiveWorkbook saved, and not ThisWorkbook.

Of course A: drive is typically a floppy drive which many don't have anymore. P: would be a network drive or a virtual drive. I guess we could check if those two folders exist before using Dir() or Scripting.FileSystemObject. Of course you know your setup better than us so if you know they exist, there is no reason to check.

Sub SaveToLocations() 'UpdateByExtendoffice20160623
  With ActiveWorkbook
    .Save
    .SaveCopyAs "A:\PAULA & RUTH\CAPITAL ASSETS\" & .Name
    .SaveCopyAs "P:\Rail Car Inventory\Capital Project\" & .Name
  End With
End Sub