Coller un tableau Excel dans un word à une page désirée

Bonjour,

Est-t-il possible de sélectionner depuis Excel le numéro de la page d'un Word (la page 2) tout juste créé pour y coller des données?

Dim DocWord As Word.Document

Dim AppWord As Word.Application

Set AppWord = New Word.Application

AppWord.Visible = True

Set DocWord = AppWord.Documents.Add

Worksheets(2).Range("A1:F20").Copy

AppWord.Selection.Paste

Merci

Anthony

Bonjour,

Bien sûr qu'on peut ... si on a créé la page 2 avant!

Pour créer une page 2, il suffit d'insérer un saut de page au niveau du curseur.

Ensuite on peut aller à la page 2 comme ceci :

Sub Copier_tablo_page2()
Dim WordApp As Object, WordDoc As Object

    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add

    Worksheets(2).Range("A1:F20").Copy
    With WordApp
        .Selection.InsertBreak Type:=7  'wdPageBreak
         .Selection.Goto What:=1, Which:=2, Count:=2  ' 1=wdgotopage  2=wdgotonext
         .Selection.Paste

        .Visible = True
        .Activate
    End With

    Set WordApp = Nothing
    Set WordDoc = Nothing
End Sub

Pierre

Merci Pierre, c'est bien ce qu'il me faut.