VBA: Copier un long tableau depuis Excel dans Word

Fermé

JamieMacUloth Messages postés 43 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 6 juin 2022 - Modifié le 27 août 2018 à 17:40
yg_be Messages postés 23522 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 - 28 août 2018 à 19:26

Bonjour,

Alors voilà, j'arrive à copier des tableaux (dans l'exemple un tableau de 3 colonnes) de Excel dans Word avec ce code:

Wb.Worksheets("Toto").Activate
Wb.Worksheets("Toto").Range("A1" & ":" & "C" & derniereLigne + 1).Select
Selection.Copy
'Recherche l'emplacement du signet où l'on collera le tableau
WordDoc.Bookmarks("Signet_Toto").Range.PasteSpecial _
Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine

Le problème, c'est que si

derniereLigne

est trop grand, mon tableau, au lieu de passer à la page suivante dans Word, s'enfonce dans mon pied de page et ne continue pas sur la page suivante.

Est-ce que vous pouvez m'aider svp ?

Merci beaucoup d'avance

A voir également:

VBA: Copier un long tableau depuis Excel dans Word
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA
Vba autofill ✓ - Forum Excel

1 réponse

Réponse 1 / 1

yg_be Messages postés 23522 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 Ambassadeur 1 578
27 août 2018 à 21:29

bonjour, as-tu essayé, ensuite, de modifier le tableau dans Word pour qu'il puisse s'étaler sur plusieurs pages?

JamieMacUloth Messages postés 43 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 6 juin 2022
28 août 2018 à 15:17

Bonjour,

Je veux justement éviter de modifier le tableau dans Word, car je dois tout automatiser sans repasser par Word. Par contre, je me rends compte que le PasteSpecial copie non pas le tableau en tant que tableau mais comme une image. Du coup, je pense que c'est pour ça qu'il ne peut pas passer à la page d'après, c'est comme si je copiais une image trop longue. Je ne sais pas comment lui dire que je veux un copy paste en mode tableau et non image du coup...

yg_be Messages postés 23522 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 9 avril 2025 1 578 > JamieMacUloth Messages postés 43 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 6 juin 2022
28 août 2018 à 19:26

je voulais déterminer si/comment le tableau était modifiable, pour ensuite automatiser cela.
peut-être ainsi?

Call WordDoc.Bookmarks("Signet_Toto").Range.PasteExcelTable(True, False, False)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel