ActiveWorkbook.Save .......pour simplement sauvegarder
ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\Mes documents\[COLOR="Blue"]nomdufichier[/COLOR].xls ............pour "enregistrer sous"
Dim w as WorkBook
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit