Discussion :

[foovolant]

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.

[blondelle]

foovolant a ecrit:

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 :

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
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");
}

[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 :

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

vRange = vWorksheet.OlePropertyGet("UsedRange");

ben ça marchait nickel.

Encore un grand merci pour ton coup de pouce

[blondelle]

foovolant a ecrit:

Merci pour ta réponse Blondelle.

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