Discussion :

[nezhaaem]

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?

[sat83]

As-tu bien ajouter:

Code :

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

#include <utilcls.h>

Et une remarque qui ne concerne pas ton problème: N'oublie pas de libérer tes Variant lorsque tu n'en a plus besoin:

Code :

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

1
2
3
4
5
vMSExcel = Unassigned ;
vXLWorkbooks = Unassigned ;
vValue = Unassigned ;
vCell = Unassigned ;
//...etc

[sat83]

Je viens de tester ton code et il fonctionne.

L'exception qui est levée est interceptée par ton bloc try...catch, ce qui explique que ton programme continu de s'exécuter normalement. Néanmoins, le débugger de C++ Builder montre les exceptions même si elles sont correctement interceptées dans ton programme.

Pour t'en assurer, lance ton exécutable en dehors de l'environnement C++ Builder (directement TonProgramme.exe), tu verra qu'il n'y a pas d'exception.

[nezhaaem]

je viens d'essayer l'executable et ça ne donne aucune exception
Merci beaucoup vous êtes