XL 2010 Renommer un graphique créé par une macro

[Fab117]

Hello,
Grâce à l'enregistreur de l'éditeur de macro, j'ai pu automatiser la réalisation de mes graphiques en partie.

Maintenant, je veux faire des modifications sur mon graphique (toujours en utilisant l'enregistereur de l'éditeur de macro).
Le problème est que les modifications font référence au nom du graphique.
J'ai donc chercher à imposer le nom du graphique lors de sa création, mais je n'y arrive pas.
J'ai essayé:

With ActiveChart ' Pour donner un nom au graphique

.Parent.Name = "GraphiqueDureeCumuleeParBranche"​

End With​

Mais ça ne fonctionne pas.

Quelqu'un saurait-il comment faire ?

Merci d'avance et bon appétit.

Fab

 

[Dranreb]

Bonjour.
Je ferais comme ça :

Dim COb As ChartObject
…
Set COb = ActiveSheet.ChartObjects.Add(150, 120, 710, 340)
With COb.Chart
…
End With

' Renommer le Graphique
COb.Name = "GraphiqueDureeCumuleeParBranche"

 

[Lone-wolf]

Bonjour Dranreb , Fab

Où tout simplement :

With ActiveSheet.ChartObjects(1)
.Name = "FIFI BRINDACIER"
'Reste du code
xxxx
yyyy
End with

 

[Fab117]

Hello,
Merci beaucoup à vous 2.
J'ai utilisé la méthode de Dranreb et ça fonctionne parfaitement.

Excellent après-midi.

Fab