[Ole] Problème OleFunction Find

Version imprimable

Boujours à toutes et à tous,
Voilà j'ai un tit soucis je n'arive pas à utilisé la fonction Find d'exce par Ole comme il est indiqué dans Faq.

Code:

vCell = vRange.OleFunction("Find", recherche);

ça passe à la compilation mais à l'éxécution j'ai une exception :

Code:

EOleException avec le message 'IsBound() failed...'

voici mon code (je sais c'est très brouillon mais c'est juste un test);)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 AnsiString CheminXls; Variant vXLWorkbooks, vXLWorkbook, Value, vRange, vCell, Worksheet, SheetName; Variant recherche; OpenDialog1->Execute(); CheminXls = OpenDialog1->Files->Strings[0]; msExcel = Variant::CreateObject("Excel.Application"); msExcel.OlePropertySet("Visible", true); vXLWorkbooks = msExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", CheminXls.c_str()); SheetName = "Blocs"; Worksheet = vXLWorkbook.OlePropertyGet("Worksheets",SheetName); recherche = "Mobilier"; //vRange = "A1"; vCell = vRange.OleFunction("Find", recherche);
Si quelqu'un à une idée.
Merci à vous.

foovolant a ecrit:

Citation:

Boujours à toutes et à tous,
Voilà j'ai un tit soucis je n'arive pas à utilisé la fonction Find d'exce par Ole comme il est indiqué dans Faq.

Deja une premiere chose les AnsiString et Ole ne font pas bon menage il faut les oublier.
Deuxieme chose si tu fait un programme plus consequent declare tes variables qui vont servir dans d'autre Modules en public car tu aura le meme type d'erreur.
un essai de code:

Code:

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
37
38
39
40
41
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Variant vXLWorkbooks, vXLWorkbook, Value, vRange, vCell, vWorksheet, SheetName;
        Variant recherche, CheminXls, msExcel;
 
        CheminXls = "c:\\book1.xls";
 
        msExcel = Variant::CreateObject("Excel.Application");
        msExcel.OlePropertySet("Visible", true);
 
        vXLWorkbooks = msExcel.OlePropertyGet("Workbooks");
        vXLWorkbook = vXLWorkbooks.OleFunction("Open", CheminXls);
 
SheetName = "Blocs";
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets");
vWorksheet = msExcel.OlePropertyGet("ActiveSheet");
vWorksheet.OlePropertySet("Name", SheetName);
 
        recherche = "book1.xls";
 
vRange = vWorksheet.OlePropertyGet("UsedRange");
 
 
        vCell = vRange.OleFunction("Find", recherche);
String vValue;
vValue = vCell.OlePropertyGet("Value");
}

24/08/2006, 09h30
foovolant

Merci pour ta réponse Blondelle.
Tout d'abord, ce petit bout de programme est juste un test en fait c'est pour ça que j'ai pas fait d'objet et que j'ai déclaré mes variables n'importe comment.
Mais c'est clair que j'aurais pu faire un tit effort :?

En fait l'AnsiString ici ne pose pas de problème mais bon je vais quand même le remplacer par un Variant au moins je serais sûre de ne pas avoir de problèmes.

En tout cas grâce à ton petit bout de code j'ai trouvé mon erreur.
En effet il suffisait de préciser une plage de cellules pour faire la recherche et donc quand j'ai ajouté :

Code:

vRange = vWorksheet.OlePropertyGet("UsedRange");

ben ça marchait nickel.

Encore un grand merci pour ton coup de pouce ;)
24/08/2006, 09h50
blondelle

foovolant a ecrit:

Citation:

Merci pour ta réponse Blondelle.

Il n'y a pas de quoi.
A+.