Macro to copy a file from one location to another location

[THRASHER69]

I am trying to make my workbook copy the saved file from one network location to another network location when I close the file. I have the code below under ThisWorkbook but it does not work. What am I missing?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    FileCopy "M;\msapps\excel\Warehouse Planning\Office 2010 Sheets (Working)\Open Order Report.xlsm", "T:\WareHouse Planning\Open Order Report.xlsm"


End Sub

 

[Gary McMaster]

FileCopy "M;\msapps

Semicolon in the file path?

 

[THRASHER69]

FileCopy "M;\msapps

Semicolon in the file path?

Sorry. That was just a mistype on my part. The macro has M: I'm not sure how to edit my post or I would fix it

 

[THRASHER69]

I am trying to make my workbook copy the saved file from one network location to another network location when I close the file. I have the code below under ThisWorkbook but it does not work. What am I missing?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    FileCopy "M:\msapps\excel\Warehouse Planning\Office 2010 Sheets (Working)\Open Order Report.xlsm", "T:\WareHouse Planning\Open Order Report.xlsm"


End Sub

It's fixed here

 

[Gary McMaster]

ADVERTISEMENT

Syntax looks okay to me. Not sure what could be wrong other than something being wrong with the source file path.

Maybe try pasting your source file path directly from code to Windows Explorer "Search Library". If Explorer can't find it you must have a typo in the path

or

Try it this way. If it works it also indicates an invalid path / filename in your previous attempt:

FileCopy ThisWorkbook.FullName, "T:\WareHouse Planning\Open Order Report.xlsm"

 

[THRASHER69]

Syntax looks okay to me. Not sure what could be wrong other than something being wrong with the source file path.

Maybe try pasting your source file path directly from code to Windows Explorer "Search Library". If Explorer can't find it you must have a typo in the path

or

Try it this way. If it works it also indicates an invalid path / filename in your previous attempt:

FileCopy ThisWorkbook.FullName, "T:\WareHouse Planning\Open Order Report.xlsm"

Same error message with this code also. It's run-time error 70: Permission denied

 

[Gary McMaster]

You did not mention any errors until now. You should do that first.

https://support.microsoft.com/en-us/kb/252711

 

[THRASHER69]

Sorry about that. Next time I will. Thanks for your help but it looks like I'm screwed with the permissions thing