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 ?