Discussion :

[sondo]

Salut à tous,

Je suis en train d'apprendre l'exportation des données vers excel. J'ai crée mon classeur, les colonnes. Maintenant je veux affecter les valeur de la requête à chaque colonne, et c'est là que je me bute.
voici mon 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
25
26
MonClasseur := ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
ExcelApplication1.SheetsInNewWorkbook[0]:=8;
MonClasseur:=ExcelApplication1.Workbooks.Add(EmptyParam,0);
Monclasseur.Sheets.Add(EmptyParam,EmptyParam,1,xlWBATWorksheet,0);
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
MaFeuille:=MonClasseur.Worksheets['feuil1'] as _worksheet;
Query_Sit_Agt.sql.Clear;
Query_Sit_Agt.sql.Add('Select agent.a_nom as nom, agent.a_prenom as prenom , agent.a_matricule as matricule, agent.a_charge as charge, agent.a_dotation_med as dotation');
Query_Sit_Agt.sql.Add(', sum(f_charge_sonabel) as f_conso, a_dotation_med - sum(f_charge_sonabel) as f_solde from agent, fiche');
Query_Sit_Agt.sql.Add('Where fiche.f_Annee = ' + QuotedStr(Edit1.text));
Query_Sit_Agt.sql.Add('And agent.centre = 362');
Query_Sit_Agt.sql.Add('And agent.a_matricule = Fiche.a_matricule');
Query_Sit_Agt.sql.Add('Group by agent.a_nom, agent.a_prenom, agent.a_matricule, a_charge, a_dotation_med') ;
Query_Sit_Agt.sql.Add('Order by agent.a_matricule');
Query_Sit_Agt.Open;
MaFeuille.Cells.Item[1,1].Value:='NOM';
MaFeuille.Cells.Item[1,2].Value:='PRENOM';
MaFeuille.Cells.Item[1,3].Value:='DOTATION';
MaFeuille.Cells.Item[1,3].Value:='CHARGE';
MaFeuille.Cells.Item[1,4].Value:='CONSO';
MaFeuille.Cells.Item[1,5].Value:='SOLDE';
MaFeuille.Range['A2', 'A200'].Value:= Query_Sit_Agt.fieldbyname('nom').AsString;
MonClasseur.Save(0);
MonClasseur.SaveAs('c:\tuto\excel.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
xlNoChange,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

Mon problèmes se trouve à la ligne en bleu. J'ai remarquer que le même se requête sur toute la colonne jusqu'à la ligne 200. J'ai pris 200 car je connaît à peu près le nombre de lignes ramené par la requête.
Comment faire de tel sorte à affecter le résultat de la requête à chaque colonne sans problème. Merci pour toute aide.

[Just-Soft]

cette question a été abordé là : http://www.developpez.net/forums/d71...tion-feuilles/

je t'invite à y jeter un coup d'œil et bonne chance.

[sondo]

Salut Just-Soft,

Merci pour le lien. Je l'ai parcouru mais je trouve que c'est une discussion non achevé et lila23 n'a pas trouvé la solution à son problème...
J'ai essayé d'adapter mon code à celui proposé par ero-sennin mais j'ai des erreurs à la ligne bleu : [Erreur] Unit1.pas(78): Types incompatibles et [Erreur] Unit1.pas(83): Identificateur non déclaré : 'AddValues'

Code :

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

1
2
3
4
5
6
7
8
9
while not Query_Sit_Agt.Eof do
        begin
          if vWorksheet = NIL then
             //acceder a la première feuillle
             vWorksheet := vXLWorkbook.WorkSheets['feuil1']
          else
            vWorksheet := vXLWorkbooks.Add;
             AddValues( vWorksheet );
        end;