Événement Application.ProjectTaskNew (Project)

Article
04/07/2023

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
Pj	Requis	Project	Projet dans lequel la tâche a été créée.
ID	Obligatoire	Long	ID de la tâche qui a été créée.

Valeur renvoyée

Nothing

Remarques

Vous pouvez intercepter les événements au niveau du projet en dehors de VBA.

Exemple

L’exemple suivant montre comment l’événement ProjectTaskNew peut intercepter les é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 du code similaire avec les événements ProjectResourceNew et ProjectAssignmentNew .

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

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

Exécutez la procédure Initialize_App pour démarrer l’audition des événements.
Créer 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.

Partager via