Événement Project.Open (Project)

Article
04/07/2023

Se produit à l'ouverture du projet, avant l'événement Activate.

Syntaxe

expression. Ouvrir (pj)

Expression Variable qui représente un objet Project .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Pj	Requis	Project	Projet qui a été ouvert.

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

Cet exemple ajoute l’alias de messagerie de l’utilisateur et la date actuelle au champ Commentaires du projet chaque fois que le projet est ouvert. Si vous placez cet exemple dans l’événement Open d’un projet, un historique d’accès au fichier est créé.

Private Sub Project_Open(ByVal pj As MSProject.Project) 
    Dim Alias As String 
 
    Alias = InputBox$("Please enter your email alias: ") 
    pj.ProjectSummaryTask.AppendNotes vbCrLf & "Opened by " & Alias & _
        " on " & Date$ & "." 
End Sub

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.

Share via