Bonjour à tous
Dans le tutorial Delphi concernant les composants Office Serveur, on peut trouver ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Var 
  MonClasseur : _workbook;
  MaFeuille :_Worksheet;
  MonGraph : _Chart;
  rMaPlage : ExcelRange;
  MaSerie : Series;
  MaCollSerie : SeriesCollection;
  compteur:integer;
...
begin
  ExcelApplication1.Connect;
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  ExcelApplication1.Visible[0]:=true;
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  rMaPlage:=MaFeuille.Range['A1','C20'];
  MonGraph:=MonClasseur.Sheets.Add(emptyparam,emptyparam,1,xlChart,0) as _chart;
  MonGraph.ChartType:=xlXYScatter;
  MaCollSerie:=MonGraph.SeriesCollection(EmptyParam,0) as SeriesCollection;
  MaSerie:=MaCollSerie.NewSeries;
  MaSerie.FormulaLocal:='=SERIE(;Feuil1!$A$2:$A$21;Feuil1!$B$2:$B$21;1)';
end;
Malheureusement, j'ai un petit souci avec l'objet SeriesCollection.
D'une part, j'en ai deux dont un seul accessible : SeriesCollection
type IDispatch et l'autre type IVcSeriesCollection (MSChart)
seul IVcSeriesCollection semble accessible. Enfin, ni dans l'interface IDispatch ni dans la classe IVcSeriesCollection je ne peux invoquer la méthode "NewSeries". Je n'ai peut etre pas compris quelque chose au code ci-dessus. Quelqu'un aurait il une idée ?

Merci par avance !
Cordialement.
F.