[R] Graphique Excel

[cutprod]

Bonjour a tous et bonne année...
Grâce a "20100" , "SrBelial" et leurs tuto = http://autoitscript.fr/forum/viewtopic. ... 24&start=0
Je me suis lancer dans l'utilisation d' Excel sous Autoit.
Je développe un script qui exploite une carte automate VM110.
En lisant une de mes entrées analogique j'obtiens les données d' un capteur de température; je les stock en fonction de l'heure du relevé.
Je cherche a afficher un graph Excel de ses données.
Tout fonctionne bien mais je bloque sur l'axe des abscisse
Voila ou j'en suis =
(script de test)

Code : Tout sélectionner

Local $oExcel = ObjCreate("Excel.Application")
With $oExcel
    .SheetsInNewWorkbook = 1
    .Visible = 1
    .WorkBooks.Add
    .ActiveWorkbook.Worksheets(1).Name = "TEST_ALEX"
    .ActiveWorkbook.Worksheets(1).Cells(1,1) = "8H00"
    .ActiveWorkbook.Worksheets(1).Cells(1,2) = "2"
    .ActiveWorkbook.Worksheets(1).Cells(2,1) = "9H00"
    .ActiveWorkbook.Worksheets(1).Cells(2,2) = "4"
    .ActiveWorkbook.Worksheets(1).Cells(3,1) = "10H00"
    .ActiveWorkbook.Worksheets(1).Cells(3,2) = "8"
    .ActiveWorkbook.Worksheets(1).Cells(4,1) = "11H00"
    .ActiveWorkbook.Worksheets(1).Cells(4,2) = "2"
    .ActiveWorkbook.Worksheets(1).Cells(5,1) = "12H00"
    .ActiveWorkbook.Worksheets(1).Cells(5,2) = "4"
    .ActiveWorkbook.Worksheets(1).Cells(6,1) = "13H00"
    .ActiveWorkbook.Worksheets(1).Cells(6,2) = "1"
    .ActiveWorkBook.Charts.Add
    .ActiveWorkBook.Charts(1).Name = "GRAPH_TEST_ALEX"
    .ActiveWorkBook.Charts(1).ChartType =65 ;65 = xlLineMarkers Line with Markers.
    .ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("B1:B6"),2) ;2= xlRowCol   xlColumns
    .ActiveWorkBook.Charts(1).SeriesCollection(1).XValues = [color=#FF0000]????[/color]

EndWith


While 1
    Sleep(50)
WEnd

Func stop()
$oExcel.ActiveWorkBook.Saved = 1
$oExcel.Quit
Exit
EndFunc

Voici la macro dont je doit "m' inspirer"

Code : Tout sélectionner

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 31/12/2010 par AL
'

'
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("TEST_ALEX").Range("A1:B6"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=TEST_ALEX!R1C1:R6C1"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="TEST_ALEX"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub
 

C'est cette ligne que je n'arrive pas a 'traduire en "Autoit" =
ActiveChart.SeriesCollection(1).XValues = "=TEST_ALEX!R1C1:R6C1"
Elle doit me permetre d'avoir les données de la colonne A pour abscisse
Voici le graphe que j'aimerai obtenir =

J'ai effectuer des recherches sur le forum anglais, j'ai bien trouvé des scripts ou ils utilise cette attribut mais je n'ai pas réussi a l'adapter chez moi
Voila!! Vous savez tous!
Si quelqu'un peu m'aider, merci d'avance.

[cutprod]

Problème résolut, désoler d'avoir poster dans le vide...
Solution =
a la place de ".ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("B1:B6"),2)"
mettre ".ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("A1:B6"),2)"