[VBA-E] couper-coller graphique dans autre woorkbooks

bonjour,

je tente de couper coller un graphique d'un classeur vers un autre, mais la methode cut ne veut pas fonctionner pour mon graphique, donc quoi utiliser ?

Voici mon code pour l'instant:

Code:

---

1 2	Workbooks(original).Sheets(1).Charts(1).Cut Charts(1).Paste Destination:=Workbooks(destination).Worksheets(1).Range("R1C1:R10C5")

---

Je suis comme toi, je me pose parfois cette question :wink:
En fait, Excel fait ça comme les magiciens, il fait disparaître le graphe pour le faire ré-apparaître ailleurs...
Essaie ça :

Code:

---

1 2 3 4 5 6 7 8 9

Workbooks("Classeur1").activate Worksheets("Feuil1").select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.ChartArea.Select ActiveWindow.Visible = False 'là le graphe disparaît Windows("Classeur2").Activate Range("A12").Select ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.Paste 'et hop ! Il est là !

---

Enregistré en le faisant et vérifié par la macro (en supprimant deux lignes qui ne me paraissaient pas indispensables

A+

NB - L'inconvénient de la méthode est que tu dois être sûr que "Graphique 1" n'existe pas déjà dans la feuille où tu colles