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 : Sélectionner tout - Visualiser dans une fenêtre à part
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