Discussion :

[DamienN]

Bonjour,

Une exception EAccessViolation est levée sur l'appel de OlePropertySet dans le fichier 'sysvari.h' ligne 2671.

Code :

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

1
2
3
4
5
6
7
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
ShowMessage("Ouvert");
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;

Lorsque je supprime un activeX (importé) de la form (Pragma link + .h), ça fonctionne normalement.

Avez-vous des informations sur le problème ?

Merci.

[blondelle]

Salut DamienN
Fait voir le code d'ouverture d'Excel avec les entetes, le code que tu a poste est minimaliste mais fonctionnel

#include <utilcls.h> // <--- ne pas oublier

[DamienN]

bonjour blondelle

voici le code de mon cpp

si je retire l'ActiveX Circ1Lib de ma form ça fonctionne normalement.

Lorsque je pose un ActiveX (importé), il plante sur OlePropertySet.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Circ1Lib_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
ShowMessage("Ouvert");
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

je ne comprends pas, comme si les fonctions OLE etaient redéfinies.

[blondelle]

Dans ton code n'oublie pas d'integrer dans l'entete car tu aura une erreur avec certaines fonctions

#include <utilcls.h> // <--- ne pas oublier

Pour ton probleme essai de le placer soit avant soit apres ta definition de l'OCX il est possible que cela resoud l'erreur, sinon je ne vois pas desole

[DamienN]

Merci pour l'info.

ça marche pas même en déplaçant l'include.

encore merci.

[DamienN]

Voici la solution qui fonctionne sous C++ Builder 6

Code :

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

1
2
3
4
5
6
7
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.Exec(PropertySet("Visible") << Variant(true));
ShowMessage("Ouvert");
vMSExcel.Exec(Function("Quit"));
vMSExcel = Unassigned;