Discussion :

[nezhaaem]

Bonsoir,
j'utilise le code ci dessous dans un bouton pour transferer le contenu d'une strnggrid dans une feuille Excel .Lors de l'exécution j'ai un message me disant :

type de variable incorrect

voici le code .qu'est ce qui lui manque??

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
33
34
35
36
Variant vMSExcel,vXLWorkbook,vXLWorkbooks,vFileName,vSaveChanges,vWorksheet,vWsName,vWorksheets,vCell,vValue;
 
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vFileName = "c:\\FichiersMouvements\\Statistiques.xls";
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
 
// vXLWorkbooks représente l'ensemble des classeurs
// vFileName est un Variant sous la forme chaîne de caractères correspondant au fichier à ouvrir
vXLWorkbook =vXLWorkbooks.OleFunction("Open",vFileName); // on récupère un Variant correspondant au classeur ajouté
vWsName="Chiffres";
try {
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", vWsName);
// vWsName est un Variant initialisé au nom de la feuille
} 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=VarToStr(SG->Cells[0][i]);
vCell.OlePropertySet("Value", vValue);
}
}
vSaveChanges =true;
vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName);
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;

[blondelle]

Salut nezhaaem
En mode pas a pas sur quelle ligne apparait ton erreur

[nezhaaem]

salut blondelle
je ne sais pas comment executer en mode pas à pas ....j'essaie avec la touche f8 mais quand j'appuie sur le bouton c'est tout son code qui s'execute puis il y a l'erreur ....comment savoir de quelle ligne il s'agit?

[sat83]

salut blondelle
je ne sais pas comment executer en mode pas à pas ....j'essaie avec la touche f8 mais quand j'appuie sur le bouton c'est tout son code qui s'execute puis il y a l'erreur ....comment savoir de quelle ligne il s'agit?

Utilise F7 (pas à pas approfondi) plutôt que F8. Le différence etant que F8 ne descend pas dans les sous-fonctions.

Je n'ai pas tester ton code, mais déja tu peux remplacer:

Code :

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

1
2
vValue =VarToStr(SG->Cells[0][i]);
//Pourquoi utiliser VarToStr alors que tu as déja un AnsiString??

par

Code :

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

vValue = SG->Cells[0][i] ;

ou

Code :

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

vValue = StringToOleStr(SG->Cells[0][i] ) ;

[nezhaaem]

Merci pour ton aide
je n'ai plus cette erreur mais j'ai une autre
je l'ai posté dans une nouvelle discussion