Excel vers Word à la suite

**flamel** · 08/07/2008, 18h10

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.

Invité · 08/07/2008, 18h21

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

**flamel** · 08/07/2008, 18h39

Merci de me répondre.

Voici un code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.