Bonjour,

Je realise un code qui permet de copié/collé plusieurs tableaux (l'onglet fait 2500 lignes et est généré avec un autre code) dans un fichier word déjà existant.

voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim appWord As Word.Application
Dim docWord As Word.Document
 
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents. _
Open("C:\User\U452536\Documents\FichierTest.docx", ReadOnly:=True)
 
Worksheets("Creation Engine Handbook").Range("A1:B20").Copy
 
    appWord.Selection.Paste
 
End Sub
le code marche mais j'ai quelques soucis :

-Je n'arrive pas à collé le tableau à partir de la 2 page du word

-Je ne sais pas comment faire en sorte que la copie s'effectue jusqu'à la dernière ligne de l'excel car il peut évoluer.
(j'ai essayé quelque chose comme ça)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
With Feuil12
    LastLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
-Est t-il possible de faire un saut de page automatique sur word pour evité que le tableau de coupe d'une page à l'autre et d'adpter la taille des colonnes à la page word ?


Merci pour votre aide