Discussion :

[a.dequidt]

Hey!


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

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

[ouskel'n'or]

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+

[a.dequidt]

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

Code :

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

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

[ouskel'n'or]

Ouskel'n'or chéri, aide moi

Oui mon amour !
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 ?
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
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

[a.dequidt]

Ton tableau est plus large que ma feuille word

[ouskel'n'or]

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 :

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

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+

[a.dequidt]

j'ai une erreur sur cette ligne:

Code :

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

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

=> Paramètre incorrect

[ouskel'n'or]

Coucou me revoilou...

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 :

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

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+