Tu peux faire un copier de ta feuille dans un nouveau classeur...
Code de l'enregistreur de macro à adapter !
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Output" ).Select
Sheets("Output" ).Copy
ActiveWorkbook.SaveAs Filename:= _
"\\tondisque\toto.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub
Message édité par Paul Hood le 18-05-2009 à 11:58:14