CommentCaMarche
Recherche
Posez votre question Signaler

[VBA] Copier un graphique Excel dans Word

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
Lire la suite 
Réponse
+3
moins plus
c'est parceque tu n'as pas référence micorosoft word object dans tes références.
Ajouter un commentaire
Ce document intitulé «  [VBA] Copier un graphique Excel dans Word  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

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

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.