Discussion :

[Humbolt]

Bonjour a Tous
Je developpe une aplication en delphi7 Entreprise sous windowsXP-SP3. Mon programme reçoit des mesures exterieurs et après conversion les enregistrent dans un classeur Excel qu'il gere entierement. J'utilise les composants serveur (ExcelApplication,ExcelWorkbook,Excelworsheet de dclofficexp 70 et Excel2007). L'utilisateur peut selectionner directement dans excel les differentes feuilles enregistrées pour les visionner et tout continue a fonctionner normalement Mais si il intervient pour ecrire ou corriger une valeur le progr. perd le control et a l'enregistrement suivant il y a declenchement d'une EOleException 'Erreur OLE800A03EC'. En laissant Excel visible je crois qu'il n'y a que deux solutions, Interdire toute operation direct dans Excel ou retrouver la liaison perdu et dans les deux cas je ne vois vraiment pas comment faire.
Quelqu'un aurait il une idée ou même une solution pour ce probleme ?
Merci d'avance...

[ShaiLeTroll]

Pour limiter les actions de l'utilisateur

Code :

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

1
2
3
4
5
6
    // Code en LateBinding !
    ExcelOLE := ComObj.CreateOleObject('Excel.Application');
    try
      ExcelOLE.UserControl := True;
      ExcelOLE.WorkBooks.Open(NomDuFichier, IgnoreReadOnlyRecommended := True, Editable := False, Notify := False, ReadOnly := True);
      ...

Voir la MSDN WorkBooks.Open



Perso, lorsqu'il y a une ouverture fermeture de windows, je préfère relancer une autre session de Excel, une pour la visualisation, et une autre pour les opérations masquées

[Humbolt]

Merci pour ton code et pour la rapidité de la reponse. Mon probleme maintenant est: Comment faire accepter ce code.
En effet apès avoir ouvert Excel par:

Code :

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

1
2
 XLApp1.Connect;
 XLApp1.Visible[0]:= True;

suivant le contexte:
je crée un nouveau classeur en utilisant les composants ExcelXP (Faq delphi)

Code :

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

1
2
3
4
5
6
 WorkBook1.ConnectTo(XlApp1.Workbooks.Add(xlWBATWorksheet,0));
 WorkSheet1.ConnectTo(WorkBook1.Worksheets[1] as _Worksheet);
 (WorkBook1.Worksheets[1] as _WorkSheet).Select(EmptyParam, 0);
 WorkSheet1.Name := 'Mesure-1';
 MonClasseur:= XLApp1.Workbooks[1];
 MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;

ou bien j'ouvre un classeur existant avec le code suivant (Faq delphi)

Code :

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

MonClasseur:=XLApp1.Workbooks.Open(CheminFichier+MemFichier,False,False,      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0 );

Chaque fois que j'essaye de rajouter les propriétés le compilateur me jette.

[ShaiLeTroll]

Attention, moi, c'est en LateBinding via OLEVariant sans les pré-déclaration fournie !

[Humbolt]

Decidemment ça ne fonctionne pas.
J'ai même fait un petit programme test sans les composants XP mais une fois le classeur crée le compilateur considere les proprietés Editable... comme variables non declarées et quand ça passe j'ai une exception sur OLEVariant.
Bref je commence a craquer.
En tout cas merci quand même.

[Humbolt]

Je pense que j'ai enfin trouvé ma solution car tous les testes que j'ai effectués me conviennent.
A la creation de l'application la procedure devient:

Code :

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

1
2
3
4
5
6
 
Begin
 XLApp1.Connect;
 XLApp1.Visible[0]:= True;
 XLApp1.Interactive[0]:= False; 
End

Toutes les operations effectuées par le programme restent active mais l'utilisateur ne peut absolument plus intervenir.
Encore merci.