IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

C++Builder Discussion :

[Ole] Problème OleFunction Find


Sujet :

C++Builder

  1. #1
    Membre habitué
    Inscrit en
    Novembre 2003
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Novembre 2003
    Messages : 8
    Par défaut [Ole] Problème OleFunction Find
    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.

  2. #2
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    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");
    }

  3. #3
    Membre habitué
    Inscrit en
    Novembre 2003
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Novembre 2003
    Messages : 8
    Par défaut
    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

  4. #4
    Rédacteur
    Avatar de blondelle
    Homme Profil pro
    Inscrit en
    Mars 2006
    Messages
    2 738
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 2 738
    Par défaut
    foovolant a ecrit:
    Merci pour ta réponse Blondelle.
    Il n'y a pas de quoi.
    A+.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 03/02/2012, 22h47
  2. Documentation gratuite sur l'API Windows, COM, DCOM, OLE, etc.
    Par Community Management dans le forum Windows
    Réponses: 1
    Dernier message: 16/11/2006, 15h28
  3. [VB6][DoVerb]Lancer automatiquement un objet OLE
    Par Argonz dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 06/11/2002, 13h29
  4. ListView->Items->Clear() !!! Qques probl de perf
    Par Nicolas_a69 dans le forum C++Builder
    Réponses: 3
    Dernier message: 30/08/2002, 11h49
  5. Accès à une application ouverte (OLE Automation ?)
    Par PascalB dans le forum C++Builder
    Réponses: 6
    Dernier message: 17/06/2002, 14h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo