Copier graphique dans une nouvelle feuille excel

[Mykimix]

Bonjour tous le monde,

J'ai encore un problème (pour changer) !

J'ai une macro , qui me créée une nouvelle Feuille X
Dans cette feuille j'aimerais copier le contenu de la Feuille Y

Probleme tous est collé , sauf les graphiques !

Qui pourrait me dobloquer la situation svp ?

 

[job75]

Re : Copier graphique dans une nouvelle feuille excel

Bonjour Mykimix,

Probleme tous est collé , sauf les graphiques !

Sub CopieTout()
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Feuil1") 'à adapter
Set F2 = Sheets("Feuil2") 'à adapter
F1.ChartObjects.Placement = xlMoveAndSize
F1.Cells.Copy F2.Cells
End Sub

A+