Transfert mono-tableau Excel vers multi-tableaux Word

Bonjour jean jacques 94.

Avec une référence à Microsoft Word:

Sub CréerDocumentWord()

Dim WordObj As Word.Application

Set WordObj = CreateObject("Word.Application")
With WordObj
.Visible = True
.WindowState = wdWindowStateMaximize
.Documents.Add

Range("A1:B5").Select
Selection.Copy

.Selection.Paste
.Selection.TypeText Text:=Chr(12) 'Insérer Fin de page

Range("A6:B15").Select
Selection.Copy

.Selection.Paste
.Selection.TypeText Text:=Chr(12)

Range("A16:B30").Select
Selection.Copy

.Selection.Paste

.ActiveDocument.SaveAs "c:aatest1.Doc"
'.Quit
End With
End Sub

docm


"jean jacques 94" <jeanjacques94@wanadoo.fr> a écrit dans le message news:
ObA6x9p5FHA.3880@TK2MSFTNGP12.phx.gbl...

En VBA
j'ai besoin de transférer à partir d'Excel , un tableau excel de 30 lignes
dans un document word de 3 pages , chaque page comportant un tableau
respectivement de 5 lignes,10 lignes et 15 lignes .

Comment en vba , associer 3 tableaux word distincts pour en fin de compte
former un seul tableau .

Merci pour votre aide

JJK94