[VBA-E] Probleme tableau word

Hey! ;)


J'ai essayer de suivre cette méthode : LIEN

Mais le tableau n'est pas redimenssionner, :( ...

Désolé mais comme d'hab' tu oublies de dire ce que tu veux faire... Le lien nous donne une foultitude de solutions... de quelle solution parles-tu ? Où veux-tu redimensionner ton tableau ? dans Word ? Dans Excel après une copie ? Colonne par colonne ? Ligne par ligne ? Tout le tableau ?
a+

j'ai copier mon tableau excel pour le coller ensuite dans word.
Tout va bien mais le tableau n'est pas redimenssionné.

Code:

---

1 2 3 4 5

Range("A25:K33").Copy wordApp.Selection.Paste wordDoc.Tables(7).AutoFitBehavior wdAutoFitWindow Application.CutCopyMode = False

---

Ouskel'n'or chéri, aide moi :mrgreen:

Citation:

---

Envoyé par a.dequidt

Ouskel'n'or chéri, aide moi :mrgreen:

---

Oui mon amour ! :love2:
Quand tu colles un tableau ainsi dans Word, il devient un tableau Word.
La taille des caractères est adaptée au tableau d'origine. Tu sais, ça...
Si la largeur du tableau collé dépasse la largeur de ta page et que tu le redimensionnes en fonction de cette largeur, tu vas te retrouver avec un tableau tout moche, tout en hauteur, avec des sauts de lignes partout partout.
Pour parvenir à tes fins, tu devras réduire la taille des caractères. C'est bien compliqué pour pas grand chose...
Me suis-je bien fait comprendre ? :love2:
Par contre, si tu souhaites pouvoir régler les dimensions d'un tableau plus large que ta page à la largeur de ton document Word, en copiant une plage de cellule Excel en tant que "feuille de calculs Excel", là ça change tout.
D'où ma question : Ton tableau est-il plus ou moins large qu'une page de ton document Word ?
Soit bien certain que je ferai mon possible pour te satisfaire :love:
A très bientôt.

NB - Je tremble à l'idée qu'un sa...d pourrait aller te dire que je suis quatre fois grand-père :mouarf:

Ton tableau est plus large que ma feuille word :oops:

Alors tu as une astuce, une fois ton tableau collé en tant que feuille de calculs Excel, c'est de le sélectionner, de le copier et de le recoller sur place.
Ce qui devrait donner :

Code:

---

1 2 3 4 5 6

Range("A25:K33").Copy wordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _ Placement:=wdInLine wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend wordApp.Selection.Copy wordApp.Selection.Paste

---

Pas testé mais chiante comme t'es, cela ne devrait pas t'empêcher de le faire pour nous ;)
Tu dis
A+

j'ai une erreur sur cette ligne:

Code:

---

wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

---

=> Paramètre incorrect

Coucou me revoilou...

Citation:

---

Envoyé par a.dequidt

j'ai une erreur

---

C'est pas normal. Montre le début de ton code et surtout les instances (set machin = truc... ) Même, je ne comprends pas... Si ! Je crois comprendre !
Le système n'a pas eu le temps de coller avant de sélectionner le tableau. faut ajouter des DoEvents un peu partout.

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("A25:K33").Copy DoEvents wordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, _ Placement:=wdInLine DoEvents wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend wordApp.Selection.Copy DoEvents wordApp.Selection.Paste DoEvents

---

DoEvents donne le temps au système de faire ses petites affaires, copy, collage, affichage, ... etc. Ne ralentit pas la procédure au delà du temps nécessaire.
Tu nous racontes
A+