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:
Code:
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:
Code:
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 ^^"
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)