Discussion :

[conconbrr]

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

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'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
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

[conconbrr]

merci beaucoup pour ta réponse michel