Événement Application.ProjectBeforeClearBaseline (Project)

Article
04/07/2023

Se produit avant l'effacement d'une planification. Utilise le paramètre d'objet EventInfo.

Syntaxe

expression. ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Pj	Requis	Project	Projet affiché dans la fenêtre désactivée.
Intérimaire	Requis	Boolean	Cette propriété a la valeur True en cas d’effacement d’un plan de référence intermédiaire. False si vous effacez un plan de référence complet.
Bl	Requis	PjBaselines	Planification que vous effacez. Il peut s'agir de l'une des constantes PjBaselines suivantes : pjBaseline, pjBaseline1, pjBaseline2, pjBaseline3, pjBaseline4, pjBaseline5, pjBaseline6, pjBaseline7, pjBaseline8, pjBaseline9 ou pjBaseline10.
InterimFrom	Requis	PjSaveBaselineTo	Planification intermédiaire que vous effacez. Il peut s’agir de l’une des constantes PjSaveBaselineTo suivantes : pjIntoBaseline, pjIntoBaseline1, pjIntoBaseline2, pjIntoBaseline3, pjIntoBaseline4, pjIntoBaseline5, pjIntoBaseline6, pjIntoBaseline7, pjIntoBaseline8, pjIntoBaseline9, pjIntoBaseline10, pjIntoStart_Finish1, pjIntoStart_Finish2, pjIntoStart_Finish3, pjIntoStart_ Finish4, pjIntoStart_Finish5, pjIntoStart_Finish6, pjIntoStart_Finish7, pjIntoStart_Finish8, pjIntoStart_Finish9 ou pjIntoStart_Finish10.
Toutes les tâches	Requis	Boolean	Cet argument a la valeur True en cas d'effacement de la totalité du projet.
Info	Requis	EventInfo	InfoÉvénement.Annuler a la valeur False lorsque l'événement est déclenché. Si la procédure événementielle affecte la valeur True à cet argument, la planification n'est pas effacée.

Valeur renvoyée

Nothing

Remarques

Les événements de projet ne se produisent pas lorsque le projet est incorporé dans un autre document ou une autre application.

Exemple

L'exemple suivant affiche une boîte de message qui informe l'utilisateur qu'une planification est sur le point d'être effacée dans le plan de projet. Elle indique de quelle planification il s'agit (de 0 à 10), le nom de fichier du projet et si le plan intermédiaire va être effacé ou non (True ou False)

Créez un module de classe et insérez le code suivant :

Public WithEvents pApp As MSProject.Application 
Private Sub pApp_ProjectBeforeClearBaseline(ByVal pj As Project, _ 
 ByVal Interim As Boolean, ByVal bl As PjBaselines, _ 
 ByVal InterimFrom As PjSaveBaselineTo, _ 
 ByVal AllTasks As Boolean, ByVal Info As EventInfo) 
 
 MsgBox "Click OK to clear the baseline for the following " _ 
 & "project:" & vbCrLf & "Baseline: " & CStr(bl) _ 
 & vbCrLf & "Project: " & pj.Name & vbCrLf _ 
 & "Clear interim plan: " & CStr(Interim) 
End Sub

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

Public X As New Class1 
Sub RunMacros() 
 Set X.pApp = MSProject.Application 
End Sub

Exécutez la procédure RunMacros pour démarrer l'écoute des événements.
Dans le menu Outils, pointez sur Suivi, puis cliquez sur Effacer la planification. L'événement entraîne alors l'affichage d'un message contextuel chaque fois qu'une planification est effacée.

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