save to a area & create a backup too

[Trevor3007]

hi,

I would like a macro to save the file in c:\data\data123 & create create a backup too in c:\data\backup\data123_backup.

is this possible?

 

[Logit]

.

Option Explicit


Public Sub SaveWB()
    ThisWorkbook.SaveAs Filename:="[COLOR=#333333]C:\data\data123\[/COLOR]" & ThisWorkbook.Name 
    ThisWorkbook.SaveAs Filename:="[COLOR=#333333]C:\data\backup\data123_backup[/COLOR]\" & ThisWorkbook.Name
End Sub

 

[Trevor3007]

.

Option Explicit


Public Sub SaveWB()
    ThisWorkbook.SaveAs Filename:="[COLOR=#333333]C:\data\data123\[/COLOR]" & ThisWorkbook.Name 
    ThisWorkbook.SaveAs Filename:="[COLOR=#333333]C:\data\backup\data123_backup[/COLOR]\" & ThisWorkbook.Name
End Sub

morning [FONT=&quot]Logit,

many thanks for you help.
The user wants to save to :-

[/FONT]H:\Asset

[FONT=&quot]and the backup to:-
[/FONT]H:\Asset\Backup

[FONT=&quot]I altered the path in your code to:-

[/FONT][/COLOR]  ThisWorkbook.SaveAs Filename:="H:\Asset" & ThisWorkbook.Name[COLOR=#201F1E][FONT=&quot]
[/FONT][/COLOR]
    ThisWorkbook.SaveAs Filename:="H:\Asset\Backup" & ThisWorkbook.Name[COLOR=#201F1E][FONT=&quot]

but although it goes through the motaions ( no erros received ) it does not work?

any suggs ?



[/FONT]

 

[Logit]

.
Note the \ at the end of the path ...

ThisWorkbook.SaveAs Filename:="H:\Asset\" & ThisWorkbook.Name


    ThisWorkbook.SaveAs Filename:="H:\Asset\Backup\" & ThisWorkbook.Name

 

[Trevor3007]

Thank you Logit,

works a treat:}

happy days are here again!!!

 

[Logit]

You are welcome.