Excel vers Word à la suite

Bonjour,

Je souhaiterais copier successivement un tableau et deux graphique depuis une page Excel, vers Word.
Une copie se fait bien, mais je n'arrive pas à faire une une deuxième copie à la suite.
Comment positionner les diverses copies sur la même page de Word.
Peut-on depuis Excel commander un 'return' dans Word ?

Merci pour toute idée.

Bonjour

Pourrait-on savoir comment tu réalises la première copie, et ensuite la deuxième.

Si tu ne nous mets pas le code, les membres ne pourront t'aider à trouver où est le problème.

Aide les à t'aider en leur donnant tous les renseignements nécessaires.

Starec

Merci de me répondre.

Voici un code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub copierDansWord() Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document   Set oWdApp = CreateObject("Word.Application") Set oWdDoc = oWdApp.Documents.Add oWdApp.Visible = True ActiveSheet.Range("J6:P17").Copy oWdApp.Selection.Paste Application.CutCopyMode = False End Sub

---

qui copie directement chaque fois dans une nouvelle page Word.

Voici deux autres codes qui permettent de positionner dans Word, mais qui ne font que copier. Il faut alors ouvrir la page Word et coller à la main, puis revenir vers Excel.

Code:

---

1 2 3 4

Sub copierTableau() Range(Range("Gra4CelOrigine3").Offset(-1, 0), Range("Gra4CelOrigine3").Offset(10, 6)).Select Selection.Copy End Sub

---

Code:

---

1 2 3 4 5

Sub copierGraphique3() ActiveSheet.ChartObjects("Graphique 3").Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy End Sub

---

J'aimerais avec le premier code faire des copies à la suite l'une de l'autre dansune même page Word.

Bonour flamel

regarde sur cette discussion il me semble que cela ressemble a ton problème

http://www.developpez.net/forums/sho...d.php?t=540799

:salut: Flamel,

cette discussion pourrait aussi t'aider.

http://www.developpez.net/forums/sho...d.php?t=544554

Bonne journée à toi.