Sub SauvegardeDouble()
Dim MonChemin As String
Dim MonCheminDistant As String
Dim LeNom As String
Dim LaDate As String
MonChemin = ThisWorkbook.Path & "\" ' pour les chemins, ne pas oublier le "\"
MonCheminDistant = "D:\MON DOSSIER\PROJET\GESTION\GESTION ABS 2019\Save\"
LeNom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) ' <<< il faut supprimer l'extension du nom afin qu'il ne se répète pas
LaDate = Format(Now, "DD-MM-YY") & ".xlsm" ' format de la date désiré
ActiveWorkbook.Save
On Error Resume Next
Application.DisplayAlerts = False ' désactive les messages d'alerte
ActiveWorkbook.SaveAs MonCheminDistant & LeNom & " Save le " & LaDate, FileFormat:=52
ActiveWorkbook.SaveAs MonChemin & LeNom, FileFormat:=52
Application.DisplayAlerts = True ' extrêmement important de les réactiver
Select Case MsgBox("Sauvegarde en double réussie.", , "Double sauvegarde.")
End Select
End Sub