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 : Sélectionner tout - Visualiser dans une fenêtre à part
vCell = vRange.OleFunction("Find", recherche);
ça passe à la compilation mais à l'éxécution j'ai une exception :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
EOleException avec le message 'IsBound() failed...'
voici mon code (je sais c'est très brouillon mais c'est juste un test)

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
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.