Salut,
voici un bout de code, pas testé car j'ai pas vb6 sous la main, t'auras certainement 2 ou 3 adaptations à faire :
' *** références : Microsoft Excel Objects Library
Dim xlApp As Object
Dim xlBook As Object
Dim CurrentChart As Chart
Dim Fname As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\chemin\nom classeur.xls")
xlBook.Sheets("Nom feuille").Select
Set CurrentChart = xlBook.Sheets("Nom feuille").ChartObjects(1).Chart
Fname = App.Path & "\Graphique.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
' t'as plus qu'a charger l'image dans ton controle, le chemin étant Fname
~
Mortalino~
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>