Application.ProjectTaskNouvel événement (Project)

Se produit lors de la création d'une tâche.

Syntaxe

expression. ProjectTaskNew( _pj_, _ID_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
pyjama	Obligatoire	Project	Projet dans lequel la tâche a été créée.
ID	Obligatoire	Long	ID de la tâche créée.

Valeur renvoyée

Nothing

Remarques

Vous pouvez intercepter des événements au niveau du projet à partir de l’extérieur de VBA.

Exemple

L’exemple suivant montre comment l’événement ProjectTaskNew peut intercepter des événements au niveau du projet. Dans ce cas, le gestionnaire d’événements App_ProjectTaskNew définit la variable globale ProjTaskNew utilisée par le gestionnaire d’événementsChange. Utilisez un code similaire avec les événements ProjectResourceNew et ProjectAssignmentNew .

1. Créez un module de classe nommé EventClassModule, puis insérez le code suivant :

Option Explicit 
Option Base 1 

Public WithEvents App As Application 
Public WithEvents Proj As Project 

Dim NewTaskIDs() As Integer 
Dim NumNewTasks As Integer 

Dim ProjTaskNew As Boolean 

Private Sub App_ProjectTaskNew(ByVal pj As Project, ByVal ID As Long) 
  NumNewTasks = NumNewTasks + 1 

  If ProjTaskNew Then 
      ReDim Preserve NewTaskIDs(NumNewTasks) As Integer 
  Else 
      ReDim NewTaskIDs(NumNewTasks) As Integer 
  End If 

  NewTaskIDs(NumNewTasks) = ID 

  ProjTaskNew = True 
End Sub 

Private Sub Proj_Change(ByVal pj As Project) 
  Dim NewTaskID As Variant 

  If ProjTaskNew Then 
      For Each NewTaskID In NewTaskIDs 
          MsgBox "New Task Name: " & ActiveProject.Tasks.UniqueID(NewTaskID).Name 
      Next NewTaskID 

      NumNewTasks = 0 

      ProjTaskNew = False 
  End If 
End Sub

2. Dans un autre module, insérez le code suivant :

Option Explicit 

Dim X As New EventClassModule 

Sub Initialize_App() 
  Set X.App = MSProject.Application 
  Set X.Proj = Application.ActiveProject 
End Sub

3. Exécutez la procédure Initialize_App pour démarrer l’audition des événements.

4. Créez une tâche. Le gestionnaire d’événements entraîne alors l’affichage d’un message contextuel à chaque ajout d’une nouvelle tâche.

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.