Bonjour, je n'arie pas a copier 2 graphique d'excel vers word, quand j'utilise le code suivant, la premier graphique qui est collé se fait supprimer par le deuxième qui est collé

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
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
 
WordApp.Selection.TypeParagraph
 
Sheets("Feuil1").ChartObjects(2).Copy 'copie le 2er graphique de la Feuil1
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False