Sub Sauvegarde_archive()
ThisWorkbook.Activate
FicSource = ThisWorkbook.Name
If InStr(1, FicSource, "-ARCHIVE") = 0 Then
Application.ScreenUpdating = False
Rep = ThisWorkbook.Path
FicArchive = Replace(FicSource, ".xlsm", "-ARCHIVE.xlsm")
' si le fichier archive est ouvert, l'enregistrer et le fermer
On Error Resume Next
Workbooks(FicArchive).Close SaveChanges:=True
On Error GoTo 0
' sauvegarder la SOURCE à la place de l'ARCHIVE
Application.DisplayAlerts = False ' False = sans demande de confirmation sinon True
ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, CreateBackup:=True
'renommer le backup en FicArchive
Workbooks.Open Filename:=Rep & "\" & "Sauvegarde de " & Replace(FicSource, ".xlsm", ".xlk")
ActiveWorkbook.SaveAs Filename:=Rep & "\" & FicArchive, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Workbooks(FicArchive).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Sauvegarde ARCHIVE effectuée"
End If
End Sub