OVH Cloud OVH Cloud

copier coller un grap^h de excel à word avec vba

3 réponses
Avatar
cm
bonjour,
je voudrais copier des graph de excel a word en utilsiant vba mais le
.paste(ou pasteexcel) sur word ne fonctionne pas. c'est donc la dernier
ligne qui bug
si vous pouviez m'aider, merci bcp..

voixi le code:

'ds excel : on copie le graph séléctionnez
ActiveChart.ChartArea.Copy
'ds word
Application.ActivateMicrosoftApp xlMicrosoftWord

Set wrd = GetObject(, "Word.application")
wrd.Visible = True
wrd.documents.Open "C:\Documents and Settings\MAETZ\mes
documents\test.doc"

Dim appwd As Object

Set appwd = GetObject("C:\Documents and Settings\MAETZ\mes
documents\test.doc", worksheet)
appwd.Visible = True
appwd.PasteExcelTable False, False, False

3 réponses

Avatar
Geo
Bonjour cm


bonjour,
je voudrais copier des graph de excel a word en utilsiant vba mais
le

.paste(ou pasteexcel) sur word ne fonctionne pas.


Je ne trouve pas PasteExcel, ni dans l'aide ni dans l'explorateur
d'objet.
Tu peux préciser ta version et ce qui se passe ?

--

A+

Avatar
cm
salut
j'ai excel 2002 et c putôt pasteexceltable (j'ai pas trouver dans l'aide
mais je l'ai obtenu en faisant une macro enregistré sous word)
concernant l'erreur, elle est la mêm avec paste ou pasteexceltable : il
'sagit de l'erreur 438 propriéte ou methode non gérer par cette objet.
en fait je pense qu'il fodrait ajoutre la feuille word dans l'explorateur
d'objet de vba pr excel mais jke sais pas comment on fais
merci de ta réponse
a+

"Geo" a écrit dans le message de
news:
Bonjour cm


bonjour,
je voudrais copier des graph de excel a word en utilsiant vba mais
le

.paste(ou pasteexcel) sur word ne fonctionne pas.


Je ne trouve pas PasteExcel, ni dans l'aide ni dans l'explorateur
d'objet.
Tu peux préciser ta version et ce qui se passe ?

--

A+





Avatar
Geo
Bonjour cm


salut
j'ai excel 2002 et c putôt pasteexceltable (j'ai pas trouver dans
l'aide mais je l'ai obtenu en faisant une macro enregistré sous
word)

concernant l'erreur, elle est la mêm avec paste ou pasteexceltable :
il 'sagit de l'erreur 438 propriéte ou methode non gérer par cette
objet. en fait je pense qu'il fodrait ajoutre la feuille word dans
l'explorateur d'objet de vba pr excel mais jke sais pas comment on
fais


Ce serait :

appwd.Selection.PasteExcelTable

Pour les paramètres voir
http://support.microsoft.com/?scid=kb;fr;324373

Selection.PasteExcelTable LinkToExcel:=True, _
WordFormatting:úlse, RTF:úlse


--
A+