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é.
Quelqu'un pourrait-il m'aider?
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
Merci d'avance
Partager