Bonjour tototiti2008,
Merci pour ta réponse.
j' ai fini par trouver la solution, la voici si dessous, je l'ai un petit peu documenté.
Je lance la macro suivante à partir d'un bouton.
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Workbooks.Open FileName:= _
"E:\DPR\MGR\LOM\GMAO\Budget\FG2009-9-Ligne221 C645.xls" 'Le fichier ou se trouve le graphique à copier
Sheets("Global").Activate 'La feuille sur laquelleest le graphique à copier
ActiveSheet.DrawingObjects.Select 'L'objet graphique à copier
Selection.Copy
ActiveWorkbook.Close 'Fermeture du fichier source
Sheets("GraphCC").Activate 'Activation de la feuille de destination du fichier ouvert
Range("A1").Activate
ActiveSheet.Paste 'La copie du graphique
'**** Et la suite que vous souhaitez donner ..............
End Sub
Cordialement
Pierre