[VBA] Copier un graphique Excel dans Word [Fermé]

Utilisateur anonyme - 2 janv. 2008 à 10:05 - Dernière réponse :  noneed
- 2 avril 2008 à 18:39
Bonjour à tous et Bonne Année 2008

Je dois copier, depuis un fichier excel, un graphique sur Word sachant que:

- Je dispose d'Office 2003
- Le graphique n'est pas sur une feuille de calcul (sheets) mais sur une feuille de type graphique (Charts)
- Le document Word n'existe pas, il faut que je le crée.

Je dispose de ce bout de code mais il ne fonctionne pas:

Sub Cop()

Dim WordApp As word.Application

Dim WordDoc As word.Document
 
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
 
Charts("Pareto gap il sh2").Copy 'copie le 1er graphique de la Feuil1
 
'collage graphique dans Word
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False


End Sub


mais le type word.Application ne semble pas exister (du moins sur la version 2003) donc comment puis-je le modifier pour qu'il fonctionne sous 2003 ?

Merci d'avance

Afficher la suite 

1 réponse

+3
Utile
c'est parceque tu n'as pas référence micorosoft word object dans tes références.
Cette réponse vous a-t-elle aidé ?