Discussion :

[puresprit]

Bonjour !

Je veux copier-coller un tableau Excel vers Word, en mode "Picture".
Voici mon code : (..."oSource" étant un Range défini sur ma Worksheet Excel)

Code vb :

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

1
2
3
4
oSource.Copy
oWdApp.Activate
oWdApp.ActiveDocument.Paragraphs(2).Range.Select
oWdApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture

Déclenche l'erreur : Runtime error '5342': The specified data type is unavailable
Remarques :
1. Ma feuille Excel est strictement vide, en dehors du Range de valeurs à copier (donc pas de d'objet "fantôme" sur le Range)
2. J'ai essayé toutes les valeurs de DataType, seul le mode texte fonctionne (mais sans formattage aucun)
3. Ca marche bien en mode "picture", mais uniquement si je place une "MsgBox" juste avant la comande "oSource.Copy" !!!

Là, je suis à court. Qui peut m'aider (Merciiii !) ???

[Skalp]

Tout ça n'est pas très clair. Que veut dire exactement "en mode picture" ?

As-tu essayé d'autres moyens ? Le presse-papier Windows ?

[puresprit]

Tout ça n'est pas très clair. Que veut dire exactement "en mode picture" ?

As-tu essayé d'autres moyens ? Le presse-papier Windows ?

Je suis sous Excel et j'ai un tableau à copier dans Word.
Je crée une instance de Word (j'ouvre Word).
Je crée une instance de document Word (j'ouvre un nouveau .doc)
Je fais un ".copy" du Range ("oSource") Excel qui contient mon tableau.
J'active Word, je sélectionne le 1er paragraphe.
Je fais un "PasteSpecial" sur ce paragraphe.
Les modes admis par la méthode "PasteSpecial" sont au nombre de 10, mais de Word à Excel on a le plus souvent le choix entre :

wdPasteRTF ("Texte mis en forme - RTF")
wdPasteText ("Texte sans mise en forme")
wdPasteStyledText ("Texte stylisé")
wdPasteMetafilePicture ("Image")

J'ai besoin de coller le tableau en tant qu'Image. Mais le mode correspondant est indisponible (c'est le sens de l'erreur obtenue) à l'issue de mon ".copy", sauf.... si j'ai placé juste avant lui une commande "MsgBox" quelconque (strange !).

Je pense que le pb résulte d'une mauvaise analyse du contenu du Clipboard par le moteur vb, mais booon.

Merci de tes lueurs !

[Skalp]

As-tu essayé : oSource.CopyPicture(...) ?
Si ça fonctionne, tu n'auras besoin que d'un Paste normal dans ton document Word.