[VBA-E]Copie graphique de excel vers word

Bonjour tout le monde,
J'ai cherché pendant une heure environ comment copier un graphique de excel vers word et je ne m'en sors pas.
Lorsque j'exécute le code suivant excel me copie tout le classeur sur word, alors que moi je ne veux copier que le graphique pourtant sélectionné.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub copieword() Dim Wor As Object Set wgr = Sheets("GRAPHrésultats") Set Wor = CreateObject("Word.Application") ' Création d'un nouveau document : wgr.Activate wgr.Select ActiveChart.ChartArea.Copy Wor.Documents.Add Wor.Selection.Paste ' Sauvegarde de ce document ainsi créé : Wor.ActiveDocument.SaveAs "D:\essai.doc" ' Fermeture de ce document : Wor.ActiveDocument.Close Set Wor = Nothing End Sub

---

Quelqu'un pourrait-il m'aider?
Merci d'avance

bonjour

j'espere que cet exemple pourra t'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub collageGraphique() 'testé avec OfficeXP 'nécéssite d'activer la référence Microsoft Word xx.x Object Library Dim WordApp As Word.Application Dim WordDoc As Word.Document   Set WordApp = CreateObject("word.application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Add   Sheets("Feuil1").ChartObjects(1).Copy 'copie le 1er graphique de la Feuil1   'collage graphique dans Word WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False   End Sub

---

bon week end
michel

merci beaucoup pour ta réponse michel :)