Bonjour,
dans la methode onclick d'un bouton j'ai ecris le code suivant qui transfrer le contenu d'une stringgrid dans un classeur excel et laisse l'instance d'excel ouverte :
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,vXLWorkbook,vXLWorkbooks,vWorksheet,vWsName,vWorksheets,vCell,vValue;
 
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
 
 
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
vWsName="Chiffres";
try {
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", vWsName);
 
} catch (...) {
	 vWorksheets = vXLWorkbook.OlePropertyGet("Worksheets");
	 vWorksheet = vWorksheets.OleFunction("Add");
	 vWorksheet.OlePropertySet("Name", vWsName);
     }
int n=SG->RowCount;
int m=SG->ColCount;
 
for (int i =1; i <=n; i++) {
for (int j =1; j <=m; j++) {
 
vCell = vWorksheet.OlePropertyGet("Cells", i,j);
vValue = StringToOleStr(SG->Cells[j-1][i-1] ) ;
vCell.OlePropertySet("Value", vValue);
}
}
MAIS lors de l'execution et avant que la feuille de calcul ne soit remplie, il y a toujours un message signalant que:
Le projet **** a declenché la classe d'exception EOleSysError avec le message:"Une exception s'est produite"

Quand je choisis : Continuer la feuille est remplie
Quand je choisit :Arrêter l'execution s'arrete et un fichier sysvari.h s'ouvre en marquant la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
return OlePropertyGet(name, static_cast<TAutoArgsBase*>(&args));
je ne comprend pas de quoi il s'agit ??
quelq'un peut il m'aider?