Sub Sauve()
'Macro par Dan pour xpxpplus le 08/11/06
'fil http://www.excel-downloads.com/forum/69818-enregistrement-de-sauvegarde.html
Dim chemin As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
With ActiveWorkbook
.Save
chemin = "C:\Mes documents\sauvegardes\"
.SaveAs Filename:=chemin & .Name
.Close
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub