Utilisation d’événements avec l’objet Application (Publisher)
Pour créer un gestionnaire pour un événement de l'objet Application, effectuez les trois opérations suivantes :
Déclarer une variable d’objet dans un module de classe pour répondre aux événements.
Écrire les procédures événement spécifiques.
Initialiser l’objet déclaré à partir d’un autre module.
Déclarer la variable objet
Avant de pouvoir écrire des procédures pour les événements de l'objet Application, vous devez créer un module de classe et déclarer un objet du type Application avec des événements. Prenons par exemple un nouveau module de classe nommé « EventClassModule ». Celui-ci contient le code suivant :
Public WithEvents App As Publisher.Application
Écrire les procédures d’événement
After the new object has been declared with events, it appears in the Object drop-down list box in the class module, and you can write event procedures for the new object. Lorsque vous sélectionnez le nouvel objet dans la zone Objet , les événements valides pour cet objet sont répertoriés dans la zone de liste déroulante Procédure . Sélectionnez un événement dans la zone de liste déroulante Procédure ; une procédure vide s’ajoute au module de classe.
Private Sub App_DocumentOpen()
End Sub
Initialiser l’objet déclaré
Avant de pouvoir exécuter la procédure, vous devez relier l'objet déclaré dans le module de classe (App dans cet exemple) à l'objet Application. Pour ce faire, utilisez le code suivant à partir d'un module quelconque.
Dim X As New EventClassModule
Sub Register_Event_Handler()
Set X.App = Publisher.Application
End Sub
Exécutez la procédure Register_Event_Handler. Après avoir exécuté la procédure, l’objet App dans le module de classe pointe vers l’objet Application Microsoft Publisher, et les procédures événementielles dans le module de classe s’exécutent lorsque les événements se produisent.
Remarque
Pour plus d’informations sur la création de procédures événementielles pour l’objet Document , consultez Utilisation d’événements avec l’objet Document.
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.