Graphique excel vers Word

Bonjour, je n'arrive 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 :

Code:

---

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

---

Bonjour

Pour le coup je suis vraiment newbee en VBA sur Word et je penses que tu auras une réponse mieux détaillée en allant sur le forum VBA Word

ceci dit dans le code que tu fourni j'ai remplacé le deuxième collage par

Code:

---

1 2	Sheets("Feuil1").ChartObjects(2).Copy 'copie le 2er graphique de la Feuil1 WordDoc.Range.Paste

---

Cela donne que les deux graphiques sont collé séparément mais il rest de la mise en page a faire en manuel dans le document word

j'espère que cela t'aidera