Discussion :

[reptooyep]

Bonjour à toutes/tous les programmeuses/eurs,
J'ai trouvé comment sauvegarder des données d'un programme dans un fichier Excel mais j'ai un gros soucis que je n'arrive pas à m'expliquer :

J'ai des Edit dans lesquels se trouvent des valeurs float copiées par la methode FloatToStr().
Je pilote Excel par une instance OLE et lorsque je copie le Edit dans la cellule, j'ai un message d'erreur "type de variable incorrect" de mon composant OLE.
La variable est un Variant et le Edit est un AnsiString qui est compatible selon l'aide avec les Variants.

La seule chose que j'ai réussi a faire est de copier la valeur avec l'instruction StrToCurr et il me copie bien ma valeur avec sa virgule mais en € !!

Si quelqu'un sait comment me sortir de ce faux pas, je lui en serais très reconaissant.

Voici le code :

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
 
Variant vMSExcel, vXLWorkbook, vXLWorkbooks, vWorksheet, vSheetName, vValue10,  vRange10, vCell;
 
//Creation de l'objet EXCEL
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
//Nouveau classeur
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
//Acces a la feuille1
 
vSheetName = "Feuil1";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
 
 
vRange10 = "B2";
 
 
vValue10 = Edit1->Text;
 
 
//Affectation des values dans les cellules VRanges
 
vCell = vWorksheet.OlePropertyGet("Range", vRange1);
vCell.OlePropertySet("Value", vValue1);

[koala01]

Salut,

D'abord, il faut te dire que nous aurions surement plus facile à t'aider si nous savions quelle bibliothèque tu utilises.

D'après ce que tu nous dis, je pars du principe que tu travailles sous borland avec la vcl, mais je pourrais très bien me tromper

Ceci dit, tu nous expliques que tu utilise une fonction nommée FloatToStr pour convertir tes float en chaines de caractères.

Le principe du miroir voudrait qu'il existe une fonction nommée StrToFloat qui fasse le travail inverse, non

A priori, le pendant "miroir" de StrToCurr serait quelque chose comme CurrToStr (ou Curr sera l'abréviation de Currency qui signifie... monnaie )

[reptooyep]

Bonjour,
Tout d'abord merci d'avoir pris la peine de m'écrire.
Désolé pour le manque de précisonsions,
Je bosse avec c++ builder6.
J'ai vu qu'on pouvais piloter Excel de 2 façons :
Soit ajouter un objet de la bibli de builder.
Soit par des commandes OLE.

C'est la 2eme solution que j'ai adopté.

J'ai bien sur essayé le StrToFloat sans succes car il n'est
pas compatible pour le Variant.
Le StrToInt fonctionne mais je pers la virgule
Le StrToCurr me l'affiche en € (c est tout a fait normal)

Je ne comprends pas pourquoi je ne peux pas faire :

Code :

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

1
2
3
 
Variant value;
Value=Edit1->Text;

Et pourquoi StrToCurr fonctionne et pas le reste.

J'espère avoir été plus clair.

Merci d'avance

[reptooyep]

Bonsoir,
Après de nombreux essais, j'ai trouvé comment faire, il suffisait d'ajouter un c_str()

Code :

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

vValue10 = Edit1->Text.c_str();

Je ne maîtrise pas le langage, pas de pratique pendant 10 ans ..