Пересохранение файла (копирование с заменой)

[lovko]

Здравствуйте! Подскажите, пожалуйста, макрос для следующего действия.
Файл, находящийся в С\Работа\Неделя\День1.xlsm ,
необходимо сохранить в
С\Пользователи\user\OneDrive\Архив\...
Причем в папке OneDrive такой файл уже существует. Нужно, чтобы он автоматически заменялся новым, при этом не выскакивало никаких диалоговых окон.
Большое спасибо!

[lovko]

Такой же файл существует не в папке OneDrive, а в папке Архив. Извините, описка.

[lovko]

Удалось разобраться самому

Код Выделить Развернуть

Sub Архивация()
   Application.Workbooks.Open ("c:\Работа\Неделя\День1.xlsm")
     Dim x As String
    strPath = "C:\Users\OneDrive\Архив"
    On Error Resume Next
    x = GetAttr(strPath) And 0
    If Err = 0 Then
        FileNameXls = strPath & "\" & "День1" & ".xlsm"
        ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
        ActiveWorkbook.Save
        ActiveWindow.Close
        Else
        MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
    End If
End Sub