ExcelApplication et requête SQL

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:

---

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.

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.

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:

---

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;

---