Sub Copie2Graphiques()
[COLOR="Green"]'Déclarations[/COLOR]
Dim S_WK As Workbook, D_WK As Workbook
Dim S_F As Worksheet, D_F As Worksheet
Dim S_Graph As ChartObject, D_Graph As ChartObject
[COLOR="Green"]'Définition du classeur source et la feuille source[/COLOR]
Set S_WK = ThisWorkBook: Set S_F = S_WK.Worksheets("Saisie 2008")
[COLOR="Green"]'Définition du classeur et de la feuille destination[/COLOR]
Set D_WK = Workbooks("BILAN ANNUEL.xls"): Set D_F = D_WK.Worksheets("Bilan")
Application.ScreenUpdating = False[COLOR="Green"] ' ecran figé[/COLOR]
Set S_Graph = S_F.ChartObjects(1) [COLOR="Green"]'1er graphique[/COLOR]
S_Graph.Activate
With ActiveChart [COLOR="Green"]'selection/copie du 1er graphique[/COLOR]
.ChartArea.Select
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
End With [COLOR="Green"]'collage du graphique dans la feuille destination[/COLOR]
D_F.Paste D_F.Range("A1"): Set S_Graph = Nothing
Application.CutCopyMode = False
[COLOR="Green"]'on recommence pour le 2ème graphique[/COLOR]
Set S_Graph = S_F.ChartObjects(2)
S_Graph.Activate
With ActiveChart
.ChartArea.Select
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
End With
D_F.Paste D_F.Range("A20"): Set S_Graph = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True [COLOR="Green"]'écran défigé[/COLOR]
End Sub