VBA: Copier un long tableau depuis Excel dans Word
JamieMacUloth
Messages postés
47
Statut
Membre
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Alors voilà, j'arrive à copier des tableaux (dans l'exemple un tableau de 3 colonnes) de Excel dans Word avec ce code:
Le problème, c'est que si
Est-ce que vous pouvez m'aider svp ?
Merci beaucoup d'avance
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
derniereLigneest 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
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, as-tu essayé, ensuite, de modifier le tableau dans Word pour qu'il puisse s'étaler sur plusieurs pages?
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...
peut-être ainsi?
Call WordDoc.Bookmarks("Signet_Toto").Range.PasteExcelTable(True, False, False)