Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim inc As Variant
Application.DisplayAlerts = False
' inc = n° de l'incrementation
MsgBox Right(ActiveWorkbook.Name, 2)
'la ligne du dessus peut etre supprimer c'est pour l'exemple
inc = Right(ActiveWorkbook.Name, 2)
If IsNumeric(inc) Then
Else:
inc = Right(ActiveWorkbook.Name, 1)
End If
ActiveWorkbook.SaveAs Filename:="D:\nom du fichier.xls"
ActiveWorkbook.SaveAs Filename:="G:\Dossier\nom du fichier" & inc & ".xls"
Application.DisplayAlerts = True
End Sub