Envoi Graphique

Relance

Bonjour tout le monde,

Je souhaite envoyer des graphiques spécifiques à différentes personnes et je me demande si un code vba peut extrait un graphique bien précis dans un tableau et l'envoyer par mail?

le code dans le fichier semble aller dans ce sens mais utilise une autre application.

Merci et bonne journée.

Bonjour,

à tester,

liste = Array("C", "D", "E")
For i = LBound(liste) To UBound(liste)
  With ActiveSheet.ChartObjects("Graphique 6").Chart
    .SeriesCollection(1).Name = "=Feuil1!$" & liste(i) & "$5"
    .SeriesCollection(1).Values = "=Feuil1!$" & liste(i) & "$5:$" & liste(i) & "$10"
  End With

  'appel de la macro mail
Next i

Bonjour sabV,

Merci pour ta réponse. J'ai testé mais ça ne fonctionne pas. J'ai pas mal d'erreurs.

- Variable non définie sur la première ligne:

liste = Array("C", "D", "E")

- Erreur d'exécution 1004 sur la ligne:

.SeriesCollection(1).Name = "=Feuil1!$" & liste(i) & "$5"

Encore une fois, merci pour ton assistance.