Transférer des données Excel sur Word

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:

---

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:

---

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 :)

Salut, voir les FAQ1 FAQ2

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...

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:

---

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

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.

Bonjour,

Citation:

---

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:

---

MsgBox Selection.Information(wdActiveEndPageNumber)

---

ou le numéro de la ligne

Code:

---

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.

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:

---

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.

Petit up pour redemander de l'aide sur ce sujet :)

Bonjour,

Citation:

---

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

---

Indiquer qu'il y a une erreur n'est pas suffisant, il est important de nous indiquer le numéro de la ligne où elle se produit.

Bonjour,

Citation:

---

Envoyé par 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:

---

Selection.MoveDown Unit:=wdLine, Count:=24

---

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

---

Sauf que l'idée de Philippe de passer par des signets est (beaucoup) plus fiable, surtout si ton document doit être utilisé sur différentes machines. Ta ligne fait descendre le point d'insertion de 24 lignes de texte. Sauf que dans Word la ligne est l'unité de mesure la moins fiable qui puisse exister. Suffit de modifier la police, les marges, le pilote d'imprimante, l'imprimante, la justification etc. pour modifier le compte de lignes.

Bonjour,

Si ton but est d'éviter de les couper, dans les propriétés d'un tableau collé dans word tu en as 2 qui pourrait t'intéresser :
Pièce jointe 294397
Reste à trouver leur nom.
eric

Bonjour Eric,
C'est la deuxième option que je lui ait suggéré à deux reprises. La première étant cochée par défaut.

Peut-être, je n'y avais pas prêté attention.
Le soucis est de trouver ces propriétés. J'ai beau fouiller Table avec l'explorateur d'objet ou comparer 2 espions, je ne trouve pas.
Cependant je viens de comprendre que la 1ère option concerne les lignes (prises individuellement).
Pour la découpe du tableau une recherche google dit qu'il faudrait plutôt
- Sélection du tableau
- Format Paragraphe, Enchaînements => cocher "Paragraphes solidaires"

Mais tant que le demandeur n'a pas confirmé que sa problématique première est bien celle-ci, on peut attendre pour chercher comment faire en vba...

Bonjour Eric,

Citation:

---

Le soucis est de trouver ces propriétés. J'ai beau fouiller Table avec l'explorateur d'objet ou comparer 2 espions, je ne trouve pas.

---

C'est vrai que ce n'est sans doute pas intuitif de trouver cette propriété mais comme je dis souvent à mes stagiaires "Privilégiez le Clic droit"
Ce qui est moins évident c'est qu'il faut sélectionner la ou les lignes que l'on veux voir répéter sur les autres pages et ensuite cliquer sur l'option en question.
Une autre possibilité est de cliquer sur le sous-onglet [Disposition] de l'onglet contextuel Outils de tableau et cliquer sur la commande Répéter les lignes d'en-tête du groupe Données (Toujours après avoir sélectionner la ou les lignes que l'on souhaite voir répétées)

Tout cela en utilisant l'enregistreur de macros
Si le tableau est seul dans le document.

Code:

---

1 2 3

With ThisDocument.Tables(1).Rows(1) .HeadingFormat = True End With

---

Code à adapter bien entendu pour le faire fonctionner dans Excel

Citation:

---

Mais tant que le demandeur n'a pas confirmé que sa problématique première est bien celle-ci attendons...

---

Effectivement il semble être aux abonnés absents ou en vacances.