Bonjour
j'ai un probleme dans mon projet, je veut chaque fin du mois sauvgarder ma table de la BDD dans une nouvelle feuille dans le meme classeur d'excel,j'ai utilisée ce code mais il marche pas correctement

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
27
28
29
30
31
32
Variant vMSExcel,vXLWorkbooks,vSheetName,vworksheet, vXLWorkbook,vWorksheet ;
int i,j;
 
 
// demarrer excel
 
vMSExcel = Variant::CreateObject("Excel.Application");
 
vMSExcel.OlePropertySet("Visible",true);
//creer un nouveau fichier xls
 
 
vSheetName="Feuil1";
vWorksheet=vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
vXLWorkbook.OlePropertyGet("Worksheets").OleFunction("Add");
 
//ecrire les titres des champs
for (int i=0;i<Form2->Table3->FieldCount-1;i++)
vworksheet.OlePropertyGet->cells[1,i+1]->value=Form2->Table3->Fields[i]->FieldName;
 
//ecrire les données
Form2->Table3->First();
for (j= 1;j<Form2->Table3->RecordCount;j++)
{
for (i=0;i<Form2->Table3->FieldCount-1;j++)
{
vworksheet.OlePropertyGet->cells[j+1,i+1]->value=Form2->Table3->Fields[i]->AsString;
}
Form2->Table3->Next();
 
 
}
est-ce que il ya quelqu'un qui peut peut m'aider
merci d'avance.