Discussion :

[amka]

J'ai une routine qui fonctionne parfois et parfois ca plante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function DonneesSource(Range1 As String, Range2 As String, xlsheetReport As Excel.Worksheet, xlApp As Excel.Application, NomGraph As String, index As Integer) As Integer
Dim Graph As Excel.ChartObject
Set Graph = xlsheetReport.ChartObjects(index)
xlsheetReport.Activate
xlApp.ActiveSheet.ChartObjects(Graph.Name).Activate
xlApp.ActiveChart.SetSourceData Source:=xlApp.Sheets(xlsheetReport.Name).Range(Range1)  ', PlotBy:=xlRows
xlApp.ActiveChart.SeriesCollection(1).Values = Range(Range1)
xlApp.ActiveChart.SeriesCollection(1).XValues = Range(Range2)
xlApp.ActiveWindow.Visible = False
End Function

Les valeurx en X sont dans une colonne (a partir de la ligne 2), toujours la meme, ce sont des dates.
Les valeurs en Y dans une autre colonne (a partir de la ligne 2), ce sont des nombres.
Le Name est la valeur de la ligne 1 de la colonne des Y.

Je ne comprends pas pourquoi le meme code peut passer ou planter.
"Erreur d'execution1004
Impossible de definir la propriete Values de la Classe Series"

Si vous avez une idee...

[pgz]

Bonjour,

Tu pourrais essayer

Code :

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

xlApp.ActiveChart.SeriesCollection(1).Values = xlapp.Sheets("?").Range(Range1)

Ce qui est bizarre avec ce que tu as écrit, mais ce n'est pas rare, c'est que des fois ça marche!

Bon courage,

PGZ