Fermeture Excel Objet Automation

Version imprimable

Bonjour,
Dans un programme, j'ouvre une feuille excel que l'utilisateur modifie et enregistre. Je souhaiterai connaitre un evenement qui me signale que le fichier est fermé.

J'ouvre le fichier de cette facon:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 TRY OleApp := CreateOleObject('excel.Application'); if ListeDesDocuments[i].FORMAT = 'XLS' Then Begin OleApp.Workbooks.Open(ListeDesDocuments[i].Dir,Unassigned,LectureSeule); End else OleApp.Workbooks.Add; OleApp.WindowState := -4137; OleApp.visible := True; EXCEPT oleapp.quit; ShowMessage('Commande non interpretée dans Excel'); END;
On ne peut pas redéfinir un evenement du type OleApp.OnExit, car cela n'est pas possible avec les objets COM. Mais cela est très flou pour pour et je ne trouve pas de document m'aidant à comptendre pourquoi.
(malgré la faq "Gestion d'événements Automation sous Delphi" de L.Dardenne)

merci pour toute piste

Eric

27/07/2007, 10h35
Laurent Dardenne

Salut,
as-tu essayé avec

Citation:

WorkbookBeforeClose, événement
Cet événement se produit juste avant la fermeture d'un classeur.

Code:

Private Sub object_WorkbookBeforeClose(ByVal Wb As Workbook, ByVal Cancel As Boolean)

object Objet de type Application déclaré avec des événements dans un module de classe. Pour plus d'informations, consultez Utilisation d'événements avec l'objet Application.

Wb Classeur en cours de fermeture.

Cancel Cet argument a la valeur False lorsque l'événement se produit. Si la procédure de l'événement lui affecte la valeur True, le classeur n'est pas fermé à la fin de la procédure.
[/B]
27/07/2007, 16h42
oiapoque

merci, je vois comment l'implementer dans Excel, mais comment faire en delphi pour redéfinir l'action de cet évènement?

c'est peut etre tout bête, mais je ne vois pas :oops:

merci bcp
27/07/2007, 18h07
Laurent Dardenne

Citation:

Envoyé par oiapoque

mais comment faire en delphi pour redéfinir l'action de cet évènement?

Je ne comprend pas ce que tu veux faire :koi:
Tu veux dire d'utiliser les propriétés/event du composant TWorkBook ?
30/07/2007, 09h44
oiapoque

Le fonctionnement:
Le programme créé une feuille excel, celle-ci s'ouvre dans excel afin que l'utilisateur saisisse des données. Ce dernier enregistre la feuille et ferme la fenetre excel pour retourner dans l'interface du programme.
C'est à ce moment là que je voudrais faire un traitement (mise à jour de tables), mais je ne sais pas saisir l'évènement, ni comment...
(il se peut que d'autres fenêtres excel soient ouvertes au même moment et qu'il ne faille pas fermer)

j'espère avoir été plus clair dans ce que je cherche a faire

peut être l'évènement WorkbookBeforeClose peut répondre à mon problème, mais je ne sais pas comment le déclarer/utiliser?

merci pour toute votre aide qui me fait avancer

eric

Utilses un composant TExcelWorkbook puis dans l'éditeur de propriétés tu vérifies les evénements proposés :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 TForm1 = class(TForm) ExcelApplication1: TExcelApplication; ExcelWorkbook1: TExcelWorkbook; ExcelWorksheet1: TExcelWorksheet; ... procedure ExcelWorkbook1BeforeClose(ASender: TObject; var Cancel: WordBool); end; ... procedure TForm1.ExcelWorkbook1BeforeClose(ASender: TObject; var Cancel: WordBool); begin //Controle du nom du fichier cible ... end;
Je crois que tu peux aussi contrôler cet event par le composant TExcelApplication.