Discussion :

[gigs]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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