Probleme avec un graph d'excel

Question

Bonjour,
je vous expose mon probl&#232;me. je souhaite r&#233;aliser une graphe sous excel. Dans mon code en vb6, j'appuie sur un bouton pour ouvrir une fenetre excel puis rentrer les donn&#233;es et ensuite cr&#233;er le graphe.
voici mon code :

Set XlSheet = CreateObject("Excel.Application") ' cr&#233;e une application Excell
XlSheet.Application.DisplayAlerts = False 'annule les messages
XlSheet.Application.Visible = True 'rend la fen&#234;tre Excell visible
XlSheet.Workbooks.Add 'ajoute un classeur
i = 1
j = 1

'ensuite je remplis ma feuille avec une boucle &#224; partir d'une base de donn&#233;es
Do While (Not rs.EOF)
datpre = rs![date]
XlSheet.Worksheets(1).Cells(i, j).Value = Month(datpre) & "/" & Day(datpre) & "/" & Year(datpre)
XlSheet.Worksheets(1).Cells(i, j + 1).Value = rs![taille]
i = i + 1
rs.MoveNext
Loop
'apres je fais le graphe
Set ch = Worksheets(1).ChartObjects.Add(7, 7, 690, 396)
'trace le graphe en prenant les donn&#233;es de la cellule A1 &#224; la cellule B6
Position = "A1:B" & i - 1
ch.Chart.SetSourceData Source:=Worksheets(1).Range(Position), _
PlotBy:=xlColumns
ch.Chart.ChartWizard Gallery:=xlLine, PlotBy:=xlColumns, HasLegend:=True, CategoryTitle:="Jour", ValueTitle:="taille en Ko", Title:="Evolution"


With ch.Chart.Axes(xlValue, xlPrimary)
.HasMajorGridlines = False
End With
Set XlSheet = Nothing

Le probleme c'est que lorsque j'appuie sur le bouton, ca marche une fois. Si je ferme Excel et que je re-appuie sur le bouton la feuille s'ouvre, les donn&#233;es sont rentr&#233;es mais au moment de faire le graphe, une erreur se produit et &#233;crit : "erreur d'ex&#233;cution 1004 : La methode 'Worksheets' de l'objet '_global' a &#233;chou&#233;" 

Je ne comprend vraiment plus rien, j'ai chercher sur ce site mais je n'ai rien trouv&#233; qui pouvait m'aider. J'ai mis la r&#233;f&#233;rence Microsoft Excel 8.0 Object Library.
Est ce que qqu peut m'aider?

Merci d'avance &#224; tous.

Biscuit

CTAC · Answer

Bonjour.

Peut &#234;tre ajouter XlSheet. devant Worksheets(1) lors de la cr&#233;ation du graph.

ctac

Probleme avec un graph d'excel

1 réponse

Discussions similaires