Signaler

[VBA] Copier un graphique Excel dans Word

Posez votre question Utilisateur anonyme - Dernière réponse le 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 
Utile
+3
moins plus
c'est parceque tu n'as pas référence micorosoft word object dans tes références.
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !