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