Graphiques

[André]

Bonsoir ,

Je cherche la solution pour pouvoir enregistrer des feuil qui comportent des graphiques , mais avec le code suivant , ça ne marche pas . qui peut m'aider ?

worksheets(array("feuil1","feuil2")).copy
activeworkbook.saveas .....



Un grand merci

André

 

[michel]

bonsoir André

la procedure ci-dessous enregistre les feuilles "Feuil1" et "Graph1" , dans le meme repertoire que le fichier contenant la macro et en prenant comme nom la date du jour .

Sub NouveauClasseurFeuilleEtGraph()
Sheets(Array("Graph1", "Feuil1")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "yyyy mm dd") & ".xls"
End Sub


bonne soiree
michel