Collage spécial depuis Excel vers Word

Version imprimable

02/04/2008, 15h06
doudoustephane

Collage spécial depuis Excel vers Word

Bonjour.
Manuellement, j'arrive à effectuer un collage spécial de excel vers word et cela fonctionne.
Mais quand je veux l'automatiser et le faire avec le fonction

Code:

WordDoc.Sections(i).Range.PasteSpecial

, cela fait l'équivalent d'un simple coller et me perd donc ma mise en forme.
Comment faire pour effectuer un collage spéciale depuis Excel dans Word SVP ?
Merci d'avance
doudouallemand
02/04/2008, 15h17
ouskel'n'or

Tu ne précises pas si tu colles une cellule ou le contenu d'une cellule... cépapareil !
Si tu colles une cellule, le format suit.
Si tu colles son contenu, le format ne suit pas.
Précise ce que tu veux faire.
A+
02/04/2008, 15h49
doudoustephane

En fait, j'ai deux feuilles :
- la première me sert de base et contient du texte
- la deuxième est celle que je rempli automatiquement en vba avec la propriété "Formula" dans laquelle je met soit une formule, soit du texte directement. De plus, sur certains cellules, j'ai une couleur de fond. Et je dois également signaler la présence d'image importée.
Voilà, maintenant, ce que je veux et de copier les images, couleurs et texte des cellules (mais pas les formules).
En copie/coller spécial à la main, cela le fait bien, mais je n'y arrive pas en vba
Merci d'avance
doudouallemand

Tu sélectionnes ta plage de cellules dans Excel, tu copies, tu te places en tête de ta section dans word et tu mets ton collage special
Code:

1 2 3 4 Worksheets("Feuil1").range("A1:C12").copy AppWord.Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:="" AppWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _ :=wdInLine, DisplayAsIcon:=False
on pourrait instancier la plage dans Excel et l'emplacement dans word mais là, tu as le principe.
Teste déjà ça ;)
A+

NB - Si tu veux lier les données dans Word avec ta plage dans Excel, mets
... , Link:=True, ...

02/04/2008, 17h04
doudoustephane

Super!! Ca marche bien.
Par contre, y'a-t-il moyen ensuite de pouvoir retoucher ce cadre, notamment la taille de celui-ci ?
Merci à toi
doudouallemand

Code:

1
2
3
4
5
6
7
Sub Testeça()
Dim LeTruc as variant
    For Each LeTruc In AppDoc.InlineShapes
        leTruc.Height = 200 'en inch
        LeTruc.width = 300
    Next
end sub

Tu dis

Citation:
Envoyé par ouskel'n'or
Code:

1 2 3 4 5 6 7 Sub Testeça() Dim LeTruc as variant For Each LeTruc In AppDoc.InlineShapes leTruc.Height = 200 'en inch LeTruc.width = 300 Next end sub
Tu dis
OK, merci, je vais tester cela et je te redis.
doudouallemand

03/04/2008, 15h13
doudoustephane

Bonjour.
J'ai donc tester tout cela et en effet, tout fonctionne à peu près bien.
Je dis à peu près car, malgré mes recherches, il me reste 2 problèmes encore :
- le premier problème concerne une erreur (voir piece jointe) d'attente ole par excel lorsque l'on colle dans word (alors que la copie se fait bien) (la copie prend plus de 30 secondes !!) Pourquoi cette erreur et comment la faire disparaître SVP ?
- le fichier excel d'origine avec les images fait 80 Mo pour l'équivalent de 60 pages et, lorsque je copie, après seulement 3 pages, le document word fait déjà 166 Mo !! Pourquoi et comment réduire cette taille SVP ?

Merci encore d'avance pour votre aide.
Cordialement
doudouallemand
03/04/2008, 15h29
ouskel'n'or

Ouf ! :(
Aucune idée. Lies-tu le classeur au doc word ?
Si tu le lies, ça fait autant de liaisons que de collages... Est-ce une raison ? 8O
Si tu ne le lies pas, je ne vois toujours pas mais tu pourrais, à la place d'un collage spécial Feuille Excel, coller une image de ta copie.
Regarde les options dans Word à collage spécial.
Et je ne suis sûr de rien car c'est un bitmap que tu colleras... et les bmp prennent également pas mal de place.
Désolé (je n'arrête pas d'être désolé de ne pouvoir répondre cet aprem... :cry: )
Dis-nous si tu trouves une solution

Une autre possibilité : Excel et Word sont-ils de la même version d'Office
Une autre possibilité : Il est possible qu'après tous tes essais, ton doc word soit vérolé. Teste dans un nouveau doc après avoir redémarré Excel et Word
Ce coup-ci, je suis sec :(
A+
03/04/2008, 15h32
doudoustephane

1 pièce(s) jointe(s)

Oups, j'avais oublié la pièce jointe, la voici
merci
03/04/2008, 15h36
doudoustephane

Citation:

Envoyé par ouskel'n'or

Ouf ! :(
Aucune idée. Lies-tu le classeur au doc word ?
Si tu le lies, ça fait autant de liaisons que de collages... Est-ce une raison ? 8O
Si tu ne le lies pas, je ne vois toujours pas mais tu pourrais, à la place d'un collage spécial Feuille Excel, coller une image de ta copie.

C'est ce que je suis en train d'essayer... à voir

Citation:

Envoyé par ouskel'n'or

Regarde les options dans Word à collage spécial.
Et je ne suis sûr de rien car c'est un bitmap que tu colleras... et les bmp prennent également pas mal de place.
Désolé (je n'arrête pas d'être désolé de ne pouvoir répondre cet aprem... :cry: )
Dis-nous si tu trouves une solution

Une autre possibilité : Excel et Word sont-ils de la même version d'Office

Oui, ils sont de la même version, pourquoi ?

Citation:

Envoyé par ouskel'n'or

Une autre possibilité : Il est possible qu'après tous tes essais, ton doc word soit vérolé. Teste dans un nouveau doc après avoir redémarré Excel et Word
Ce coup-ci, je suis sec :(
A+

Ma macro excel créée un nouveau fichier word à chaque fois que j'execute ma macro et je ferme excel tous les 2 ou 3 tests donc, rien de ce côté là.
Merci
03/04/2008, 15h38
ouskel'n'or

A tout hasard, montre ton code de création de doc et de démarrage de Word.
A+

Citation:

Envoyé par ouskel'n'or

A tout hasard, montre ton code de création de doc et de démarrage de Word.
A+

Voici mon code :
Code:

1 2 3 4 5 FileCopy fichier_source, fichier_dest Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(fichier_dest)
Merci

03/04/2008, 16h45
doudoustephane

Bon, je viens de faire l'essai en bitmap et ... ca marche super mais ... :cry:
Et oui, il y a toujours un mais, la qualité obtenu avec le bitmap est très médiocre (presque illisible)... Y'aurait pas moyen de mettre ca en jpeg ?
Sinon, où est-ce que je peux trouver la doc de toutes ces fonctions ?
Merci
03/04/2008, 17h14
doudoustephane

Bon, ça y est, j'ai trouvé la solution : j'utilise un collage en datatype "wdPasteMetafilePicture". Cela va vite à se copier et pèse moins de 1Mo les trois pages pour une très bonne qualité.
Il ne reste plus qu'à faire valider tout cela auprès de mon client.
Merci beaucoup à toi ouskel'n'or pour toute ton aide.
Je passe ce sujet en résolu.
Cordialement
doudouallemand