Discussion :

[torvobos]

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 :

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

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 !

[kiki29]

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

[Menhir]

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

Code :

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

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

[torvobos]

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

Code :

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

Debug.Print Worksheets("Graph1").Name

[Menhir]

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

[torvobos]

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

[Marc-L]

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, …

[Menhir]

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...

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.