[résolu][VBA] Déplacer un graph d'excel vers word

[Verba_Tim]

Puisque mon premier sujet (thème différent ^^) ne fais pas fureur, je vouspropose un autre challenge ^^

Cette fois-ci j'ai plusieurs graphs dans une 'feuil' excel, et je souhaite les déplacer pour une présentation plus "esthétique" vers une page word.
Pour créer ma page word j'utilise le bout de code suivant:

Dim Wrd As Object, AppWrd As Object
Set Wrd = CreateObject("Word.Application")
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True

... et ça marche assez bien ^^
Pour la copie pas de problème:

ActiveSheet.ChartObjects("Graphique 1").Copy

Mais le collage c'est pas encore ça...
J'ai trouvé ce qui suis mais c'est pas formidable... pour ne pas dire inefficace ^^"

WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False

Une idée?

Merci d'avance ^^

VB_Tim

 

[tototiti2008]

Re : [VBA] Déplacer un graph d'excel vers word

Bonjour Verba_Tim,

peut-être

Dim Wrd As Object, WordDoc As Object
Set Wrd = CreateObject("Word.Application")
Set WordDoc = Wrd.Documents.Add
Wrd.Visible = True
ActiveSheet.ChartObjects("Graphique 1").Copy
WordDoc.Range.PasteAndFormat (13)

 

[Verba_Tim]

Re : [VBA] Déplacer un graph d'excel vers word

Bonjour Toto 🙂

C'est exactement ça 😀
Ca marche à merveille ^^
Merci infiniment ^^

Bonne journée!