[VBA] Copier un graphique Excel dans Word

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


Seules les forces obscures peuvent ouvrir et fermer les port­es de Silent Hill

Configuration: Windows XP
Internet Explorer 6.0