Discussion :

[myuils]

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.

[myuils]

Bonjour !

J'ai omis de préciser quelques détails pouvant interesser :
j'utilise Delphi 7 avec le systeme Windows XP. Les composants serveurs Office sont les composants Office XP. Je n'ai pas de droit administrateur.

Merci pour votre aide.
F.

[myuils]

Bonjour

J'ai résolu mon problème :
Désormais dans ExcelXP le module pour piloter Excel, il ne faut pas utiliser l'interface IDispatch 'SeriesCollection' mais l'interface IDispatch 'ISeriesCollection'. C'est en examinant le fichier ExcelXP.pas (que j'ai retrouvé moi meme puisque Delphi ne savait pas ou il etait) que j'ai pu parvenir à refaire le code du tutorial.

Merci aux personnes ayant consacré un peu de leur temps sur le sujet.

Cordialement.
F.

[myuils]

Finalement, l'interface ISeriesCollection existait deja pour les versions antérieure de Excel (97 / 2000). Cependant cette interface n'est pas masquée par l'utilisation du composant chart. Il est possible de l'utiliser, mais cela est plus fastidieux que l'autre interface 'SeriesCollection'. Je conserve donc mes ennuis de classe cachée meme si la méthode NewSeries existe bel et bien.