Discussion :

[shuya]

Bonjour,

J'ai un petit problème... j'utilise le programme dans le FAQ.. et pourtant j'ai des bug.
voici le code.

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
procedure TForm1.Button1Click(Sender: TObject);
Var MonClasseur : _workbook;
    MaFeuille :_Worksheet;
    Resultat : variant;
    comptLig, ComptCol: integer;
begin
  ExcelApplication1.Connect;
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\temp\t.xls',False,False,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  ExcelApplication1.Visible[0]:=true;
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  Resultat:=MaFeuille.Range['A1','C20'].Value; // ligne 48
  for comptLig:=1 to VarArrayHighBound(Resultat,1) do
    for comptCol:=1 to VarArrayHighBound(Resultat,2) do
      Resultat[comptlig,comptcol]:=Resultat[comptlig,comptcol]*3+2;
  MaFeuille.Range['A1','C20'].Value:=Resultat; // ligne 52
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;

Dans la procédure du bouton 1 on retrouve bien le code de la FAQ
[Error] Unit1.pas(48): '[' expected but ';' found
[Error] Unit1.pas(52): '[' expected but ':=' found
je me retrouve avec deux erreurs

Et je comprend pas très bien comment mettre la valeur désirée...

Pourtant quand j'enlève "l'ajout de valeur".. la page excel s'ouvre bien et se referme bien...

pouvez vous me guider... la je vois vraiment pas...
merci.

[shuya]

désolé pour le double post...

c'est bon j'arrive enfin a écrire dans le tableau Excel.

j'utilise la ligne de code suivante:

Code :

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

MaFeuille.Cells.Item[x,'A'].Value:='12';

avec x : integer;

(En revanche le programme de la FAQ marche toujours pas)