[OLE Excel] Erreur

**JBrek** · 23/03/2003, 13h33

Quand j'essaie de compiler, le compilateur me donne cette erreur :

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet ImportExcel.exe a provoqué une classe d'exception EOleSysError avec le message 'Opération non disponible'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Et le compilateur s'arrête sur ça :

try
OleApplication := GetActiveOleObject('Excel.Application');
except
OleApplication := CreateOleObject('Excel.Application');
end;

Je sais pas ce que c'est. Qqn a une idée ?
Merci.

**Pierre Castelain** · 23/03/2003, 13h46

Si les options du débugger sont paramétrés pour s'arrêter sur les exceptions Delphi, il est tout à fait normal que le débugger stoppe l'exécution du programme.

**JBrek** · 23/03/2003, 15h00

Oui, mais ça signifie quoi ? Il y a une erreur ? C'est du au code ?

**Frank** · 23/03/2003, 15h24

Tu peux nous donner le reste du code?
Parce que là, on pourrait te donner des tas de suppositions, vu le peu que tu nous as fourni.

Frank

**JBrek** · 23/03/2003, 15h44

Bah en faite, je sais pas ou se situe l'erreur.
Le compilateur s'arrête dans cette partie :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfmImportExcel.FormCreate(Sender: TObject);
begin
   try
        OleApplication := GetActiveOleObject('Excel.Application');
   except
        OleApplication := CreateOleObject('Excel.Application');
   end;
   OleApplication.visible:=True; // pour rendre Excel visible
end;

Alors après, je sais pas quoi vous montrer...

**Frank** · 23/03/2003, 15h57

Un peu d'aide delphi:

EOleSysError is the exception class for errors specific to the OLE IDispatch interface.

Unit

ComObj

Description

EOleSysError is the exception class for errors that occur during an attempt to invoke a method or property of an OLE automation object. When the IDispatch Invoke method fails, EOleSysError is raised. Objects invoked through IDispatch can return the error code—an OLE status code or SCODE—indicating the reason for the error.

As tu rajouté ComObj dans les uses?
Et tu déclares bien ton OleApplication comme variant?

Frank

**Pierre Castelain** · 23/03/2003, 16h17

Quelques précision:
Si Excel n'est pas ouvert lors de l'exécution de ton programme, une exception doit être levée sur la ligne:

Code :

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

1
2
 
  OleApplication := GetActiveOleObject('Excel.Application');

C'est tout à fait normal car on tente d'obtenir une instance de l'application Excel et celle-ci n'est pas en mémoire. Cette éventualité est traitée dans la section except où l'on demande la création d'une nouvelle instance.
Ce que je voulais dire dans ma précédente réponse c'est que les options du debugger permettent de lui demander de s'arrêter sur les exceptions générées même si elles sont traitées dans le code. C'est, je pense, ce qui se passe dans ton cas. Pour désactiver cette option (Delphi 7): Menu Outils->Options du débogueur->Exceptions du langage et décocher la case "Stopper sur exceptions".
PS: je n'ai qu'une version anglaise sous la main, les noms exacts peuvent être un peu différents.