Snasui Excel Forum

Code: Select all

Sub SaveBackup()
    Dim D As String
    D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "\\192.168.1.253\data\PR\Data PR\BackUp\" & D, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Code: Select all

Sub SaveBackup()
    Dim D As String, E As String
    D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
    E = "Backup " & Format(Date, "dd-mm-yy") & "_backup.xlsm"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "\\192.168.1.253\data\PR\Data PR\BackUp\" & E, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.SaveAs Filename:= _
        "\\192.168.1.253\data\PR\Data PR\BackUp\" & D, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Code: Select all

Sub SaveBackup()
Dim D As String, FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
    ActiveWorkbook.Save
    FSO.CopyFile ActiveWorkbook.FullName, "\\192.168.1.253\data\PR\Data PR\BackUp\" & D
End Sub

Code: Select all

Sub SaveBackup()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs  _
        "\\192.168.1.253\data\PR\Data PR\BackUp\Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
    Application.DisplayAlerts = True
End Sub