Discussion :

[oiapoque]

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 :

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
  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

[Laurent Dardenne]

Salut,
as-tu essayé avec

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

Code :

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

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]

[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

merci bcp

[Laurent Dardenne]

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

Je ne comprend pas ce que tu veux faire
Tu veux dire d'utiliser les propriétés/event du composant TWorkBook ?

[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

[Laurent Dardenne]

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

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
 
 
  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.