Exporter un graphique en gif VBA

Bonjour à tous,

Je débute en vba et j'ai un petit soucis:

Mon but est d'exporter la feuille nommée "Graph1" en une image .gif puis la charger dans mon userform (page1 d'un multipage)
Une erreur apparaît "l'indice n'appartient pas à la sélection" au niveau de la ligne 2

Code:

---

1 2 3 4 5

Sub ExportCharts() Worksheets("Graph1").ChartObjects(1).Chart.export Filename:="C:\Graph1.gif", FilterName:="GIF" Me.MultiPage1.Pages(0).Picture = LoadPicture("C:\Graph1.gif") MsgBox " graphique exporté avec succès" End Sub

---

Merci pour votre aide !

Salut, le message est quand même suffisamment explicite.
P.-S. : Balise ton code

La première chose est de savoir lequel de tes deux objets a un mauvais indice :

Code:

---

1 2	Debug.Print Worksheets("Graph1").Name Debug.Print Worksheets("Graph1").ChartObjects(1).Name

---

Salut Menhir,
Le code bloque au niveau de cette ligne :

Code:

---

Debug.Print Worksheets("Graph1").Name

---

Ca veut dire que ton onglet ne porte pas ce nom.

Justement, je ne comprends car l'onglet excel où se trouve le graph à exporter s'appelle bien "Graph1" ..

Bonjour,

c'est juste une erreur d'orthographe (préférer plutôt le CodeName) ou l'ordinateur est à l'Ouest (le redémarrer alors) …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Citation:

---

Envoyé par torvobos

Justement, je ne comprends car l'onglet excel où se trouve le graph à exporter s'appelle bien "Graph1" ..

---

VBA semble penser le contraire.
Tu peux essayer de lui expliquer ton point de vue mais l'informatique, c'est têtu... :mrgreen:

A moins que ce ne soit pas un onglet de feuille de calcul mais un onglet de graphique.
Dans ce cas, c'est le WorkSheets qui n'est pas bon. Remplace-le par un simple Sheets ou, mieux, Charts.

Bonjour,

Si c'est une feuille Graphique, il faut utiliser Sheets() et pas Worksheets().