De: "gerard" <gerard.arlic@free.fr>
Objet: Re: suite Excel XP et DDE souce
Date : dimanche 23 septembre 2001 23:31

puisqu'il y a des amateurs:
les d&eacute;clarations:
<uses
  SysUtils, WinTypes, WinProcs,  Classes, Graphics, Controls,
  Forms, Dialogs, Menus, ExtCtrls,ComObj, StdCtrls, Buttons,Grids,
printers,
  IniFiles, Tabs, FileCtrl,  shellapi,messages, ToolWin,
  ImgList, Excels, ComCtrls, OleCtnrs;>
c'est surtout la dernière unit&eacute; la + importante
la proc&eacute;dure:
<procedure Tmdi.ExporterversExcel1Click(Sender: TObject);
var
p,ce_:string;
t_,t2:double;
b,c,a:integer;
  OleApplication :variant;
begin
   OleApplication := CreateOleObject('Excel.Application');
   OleApplication.visible:=True;
   OleApplication.Workbooks.Add;
p:=factur.readstring('entete','l1','Entreprise G&eacute;rard');
  OleApplication.Range['A1'].Formula:=p;
p:=factur.readstring('entete','l2','');
  OleApplication.Range['A2'].Formula:=p;
p:=factur.readstring('entete','l3','');
  OleApplication.Range['A3'].Formula:=p;
  OleApplication.Range['A4'].Formula:= 'Tel:
'+factur.readstring('entete','l4','')+ '  '+
 'Fax: '+ factur.readstring('entete','l5','');
  OleApplication.Range['A4'].Font.Size:=8;
  OleApplication.Range['A5'].Formula:=factur.readstring('entete','l6','');
  OleApplication.Range['A1:A3'].Font.bold:=true;
  OleApplication.Range['A1'].Font.Size:=16;
  OleApplication.Range['A7'].Formula:='Client: '+clien.caption;
  OleApplication.Range['A8'].Formula:=client_adresse.caption;
  OleApplication.Range['A9'].Formula:=tfille(ActiveMDIChild).getnat+'
'+tfille(ActiveMDIChild).getnum;
OleApplication.Range['A10'].Formula:= tfille(ActiveMDIChild).getdat;
OleApplication.Range['A11'].Formula:='Nature'  ;
OleApplication.Range['B11'].Formula:= 'Quantit&eacute;';
OleApplication.Range['C11'].Formula:='PU HT';
OleApplication.Range['D11'].Formula:= 'P HT';
OleApplication.Range['A11:D11'].Font.bold:=true;
c:=12;
t2:=0;
b:=0;
for a:=1 to tfille(ActiveMDIChild).grille.rowcount do
      begin
      if tfille(ActiveMDIChild).grille.cells[0,a]<>'' then begin
            b:=b+1;
            ce_:='A'+inttostr(a+c);
 OleApplication.Range[ce_].Formula:=
tfille(ActiveMDIChild).grille.cells[0,a];
            ce_:='b'+inttostr(a+c);
      if tfille(ActiveMDIChild).grille.cells[1,a]<>'' then
 OleApplication.Range[ce_].Formula:=
strtofloat(tfille(ActiveMDIChild).grille.cells[1,a]);
            ce_:='c'+inttostr(a+c);
      if tfille(ActiveMDIChild).grille.cells[2,a]<>'' then
 OleApplication.Range[ce_].Formula:=
strtofloat(tfille(ActiveMDIChild).grille.cells[2,a]);
      if (tfille(ActiveMDIChild).grille.cells[1,a]<>'')and
(tfille(ActiveMDIChild).grille.cells[2,a]<>'')
      then  begin
t_:=strtofloat(tfille(ActiveMDIChild).grille.cells[1,a])*
strtofloat(tfille(ActiveMDIChild).grille.cells[2,a]);
            ce_:='d'+inttostr(a+c);
 OleApplication.Range[ce_].Formula:= t_;
t2:=t2+t_;
end;
      end;
      end;
 OleApplication.Range['A:A'].ColumnWidth := 60;
 OleApplication.Range['b:b'].ColumnWidth := 15;
 OleApplication.Range['c:c'].ColumnWidth := 15;
 OleApplication.Range['d:d'].ColumnWidth := 15;
            ce_:='a'+inttostr(b+c+3);
 OleApplication.Range[ce_].Formula:= 'Total HT :';
            ce_:='c'+inttostr(b+c+3)+':c'+inttostr(b+c+6);
 OleApplication.Range[ce_].NumberFormat := '#,##0.00 [$F-40C]';
            ce_:='c'+inttostr(b+c+3);
 OleApplication.Range[ce_].Formula:=t2;
            ce_:='a'+inttostr(b+c+4);
 OleApplication.Range[ce_].Formula:='TVA:
'+floattostr(tfille(ActiveMDIChild).gettau) ;
            ce_:='c'+inttostr(b+c+4);
 OleApplication.Range[ce_].Formula:= (t2*tfille(ActiveMDIChild).gettau)/100;
            ce_:='a'+inttostr(b+c+5);
OleApplication.Range[ce_].Formula:= 'Total TTC';
            ce_:='c'+inttostr(b+c+5);
 OleApplication.Range[ce_].Formula:=
t2*((tfille(ActiveMDIChild).gettau+100)/100);
            ce_:='a'+inttostr(b+c+7);
 OleApplication.Range[ce_].Formula:= tfille(ActiveMDIChild).getmes;
OleApplication.Range['d:d'].NumberFormat := '#,##0.00 [$F-40C]';
end;>
gerard


 