Discussion :

[Elgwaz]

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

[kiki29]

Salut, voir les FAQ1 FAQ2

[Elgwaz]

Salut kiki,

j'ai déjà parcouru ces tutos je m'en suis inspiré pour le début.

mais jai rien trouvé pour le saut de lignes...

[Philippe Tulliez]

Bonjour,
Personnellement, j'utilise les signets pour coller dans un document Word ce que je copie en Excel
Si tu veux connaître l'instruction pour effectuer un saut de ligne, un saut de paragraphe ou un saut de page, l'enregistreur de macros de Word te donnera le code
En attendant, voici une petite procédure de démonstration se trouvant dans un module Excel et qui ouvre un nouveau document Word et qui écrits une phrase avec saut de paragraphe et un mot

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
16
17
Sub WordWrite()
 Dim objWord As Object
 'On Error Resume Next
 Set objWord = CreateObject("Word.Application.8")
 objWord.Visible = True ' Affiche Word
 objWord.Documents.Add  'Ajoute un document
 With objWord.Selection
 .TypeParagraph
 .TypeText Text:="Procédure pour écrire dans Word "
 .TypeParagraph  ' Saut de paragraphe
 .TypeText Text:="Philippe :o)"
 .TypeParagraph
 End With
'pour imprimer le document
' objWord.PrintOut
Set objWord = Nothing
End Sub

Si ton tableau commence à la page 1 et continue page 2, tu peux parfaitement répéter les étiquettes de colonnes de ton tableau. C'est une fonctionnalité de Word

[Elgwaz]

J'ai la commande pour le saut de page je cherche encore comment faire un "si le tableau est incomplet faire un aute de page" je vois ça de mon côté je reviens si je trouve pas merci.

[Philippe Tulliez]

Bonjour,

comment faire un "si le tableau est incomplet faire un aute de page"

Tu peux te baser sur le numéro de page par exemple

Code :

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

MsgBox Selection.Information(wdActiveEndPageNumber)

ou le numéro de la ligne

Code :

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

MsgBox Selection.Information(wdFirstCharacterLineNumber)

mais je ne comprends pas ce que tu cherches à faire car le saut de page est automatique et encore une fois rien ne t'empêche de répéter les étiquettes de colonnes.

[Elgwaz]

Bonjour Philippe, je reviens vers toi car j'ai trouvé une commende qui me permet de coller les tableaux là ou je veux voici le 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
16
17
18
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\U515129\Documents\Cahier d'adaptation.docx", ReadOnly:=True)
 
Worksheets("Creation Engine Handbook").Range("A1:B20").Copy
 
Selection.MoveDown Unit:=wdLine, Count:=24
 
appWord.Selection.Paste
 
End Sub

Le code s'incrémente et ouvre le document word mais une erreur d'éxecution '4248' apparaît.