Coller graphique avec mise en forme source

Bonjour,

Je cherche à copier-coller un graphique en conservant la mise en forme source avec VBA, mais je n'arrive pas à trouver la syntaxe. Je connais la syntaxe avec pasteSpecial, mais cela s'applique à des cellules et non pas à des graphiques. J'ai essayé avec l'enregistreur de macro (pour coller : clique droit > conserver mise en forme source), mais il me sort ceci :

Code:

---

1 2 3

ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.ChartArea.Copy Range("A1").Select

---

Aucun code concernant le collage !? Il s'arrête à la sélection de la cellule où je vais coller.
Connaissez-vous la syntaxe associé à ce copier-coller en conservant la mise en forme source pour un graphique?

Merci d'avance :)

Bonjour

La copie d'un graphique ne modifie pas son aspect sauf éventuellement couleurs basées sur la thème actif.

Peux-tu être plus précis sur le PB que tu rencontres.

Ce sont justement les couleurs basées sur le thème actif que je veux conserver.
Quand, je fais la manipulation à la main (clique droit > conserver la mise en forme source), j'ai le résultat que j'aimerais obtenir, mais je n'arrive pas à trouver l'équivalent en macro.
Voici le grahique initial :
Pièce jointe 253431
Dans une autre feuille qui n'a pas les mêmes couleurs de thème, si je fais un copier-coller normal (ctrl+C - ctrl+V), j'obtiens :
Pièce jointe 253434
Si, je fais un copier-coller en conservant la mise en forme source, comme cela :
Pièce jointe 253436
J'obtiens :
Pièce jointe 253440
Ce que j'aimerais obtenir grâce à VBA.

Avec excel 2 000 avec l'enregistreur de macro j'arrive à ceci

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.copy Sheets("Feuil2").Select ActiveSheet.Paste   End Sub

---

Ensuite avec la Macro1, j'ai le résultat que tu souhaite

bonne journée.

Code:

---

1 2 3

Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.ChartArea.Copy   Worksheets("Feuil2").Range("M12").PasteSpecial xlPasteFormats

---

Merci pour ta réponse, a_diard. C'est ce que j'avais fait en premier jet, mais ceci correspond à un copier-coller basique et ne conserve donc pas la mise en forme source.

EDIT : je viens de voir le message de mercatog, merci :) J'ai aussi essayé cette syntaxe, mais j'obtiens le message d'erreur "La méthode PasteSpecial de la classe Worksheet a échoué". J'ai l'impression que pasteSpecial ne marche que pour des plages de cellules, mais peut-être ai-je tord ?

J'ai essayé ceci, pour moi ça fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub copy()     ActiveSheet.ChartObjects("Graphique 1").copy   Worksheets("Feuil2").Range("A1").PasteSpecial (xlPasteAll)     End Sub

---

avec le code de mercatog, j'avais la même erreur que toi.

bonne journée.

Déjà essayé aussi :) Mais cela donne une image, et pas un graphique. C'est déjà pas mal, mais j'aurais préféré avoir un graphique (sur lequel on peut passer la souris pour pouvoir lire les valuers des données, par exemple).
Merci pour toutes ces propositions :)

Chez moi j'ai un graphique ?????

Avec les mêmes données source que le graphique d'origine.

hmm... c'est étrange, parce que j'ai une image, si j'utilise PasteSpecial(xlPasteAll) ... Serait-ce du aux versions d'Excel?? Ca m'étonne...
Pièce jointe 253596

J'avais testé sur Xl 2010

Sinon, essaies ceci

Code:

---

1 2 3 4 5 6 7

Sub test() Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.ChartArea.Copy   Worksheets("Feuil2").Activate Range("A12").Select Application.CommandBars.ExecuteMso "PasteSourceFormatting" End Sub

---

Bonjour

Citation:

---

Envoyé par a_diard

Chez moi j'ai un graphique ?????

Avec les mêmes données source que le graphique d'origine.

---

Les thèmes n'existent pas encore dans Office 2000 : tu ne peux pas reproduire les mêmes effets.

Citation:

---

Envoyé par mercatog

...Sinon, essaies ceci...

Code:

---

1 2	Application.CommandBars.ExecuteMso "PasteSourceFormatting"

---

...

---

OK chez moi.

Question à riaolle : sur 2010, le thème est attaché au classeur pas à la feuille. Es-tu dans le même classeur ? JUste pour savoir si 2016 a évolué sur ce point.

Citation:

---

Code:

---

Application.CommandBars.ExecuteMso "PasteSourceFormatting"

---

---

C'est parfait ! Merci !!

Pour répondre à 78Chris : je copie d'un classeur vers un autre. Mais j'ai regardé, le thème est attaché au classeur et non pas à la feuille. En effet, si je me place sur une feuille et que je change le thème, le thème des autres feuilles change aussi. Donc, non, pas d'évolution sur ce point :?