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.
ça passe à la compilation mais à l'éxécution j'ai une exception :
Code : Sélectionner tout - Visualiser dans une fenêtre à part vCell = vRange.OleFunction("Find", recherche);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 EOleException avec le message 'IsBound() failed...'![]()
Si quelqu'un à une idée.
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);
Merci à vous.
Partager