[XL-2003] Copier Coller et Renommer Graphique

[Tintou]

Bonjour,

Je souhaiterais "simplement" dupliquer un graphique et le renommer mais je bloque un peu au niveau du nom. J'ai tenté d'enregistrer une macro (cf code ci-dessous), mais le problème est qu'il faut connaître le nom du graphique qui vient d'être coller pour le renommer. Or quand j'effectue la boucle je ne le connais pas à l'avance.

Pourriez vous m'indiquer comment modifier le code afin de renommer directement le graphique qui vient d'être créer sans le sélectionner par son nom.

Merci d'avance.

Code :

1
2
3
4
5
6
7
8
9
10
11
ActiveSheet.ChartObjects("Trend1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy
    ActiveWindow.Visible = False
    Windows("SIF Scoreboard 2010.xls").Activate
    ActiveSheet.Paste
    ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveWindow.Visible = False
    Windows("SIF Scoreboard 2010.xls").Activate
    ActiveSheet.Shapes("Chart 5").Select
    Selection.Name = "Trend8"

[cb_60]

bonjour
tu peux tester cela?

Code :

1
2
3
4
5
6
7
8
9
 
 
    ActiveSheet.ChartObjects("Trend1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy
    ActiveWindow.Visible = False
    Windows("SIF Scoreboard 2010.xls").Activate
    ActiveSheet.Paste
    ActiveSheet.ChartObjects(1).Name = "test"