Propriété Project.StatusDate (Project)

Obtient ou définit la date d’état actuelle du projet. Si aucune date d’état n’existe, cette propriété renvoie la valeur « NC ». Variant en lecture/écriture.

Syntaxe

expression. StatusDate

expression Variable qui représente un objet Project .

Exemple

L’exemple suivant montre comment contrôler la date d’état du projet actif. Si elle n’a jamais été modifiée par rapport à sa valeur par défaut mais que les modifications apportées au % achevé total des tâches sont réparties sur la date d’état, vous devez indiquer la date d’état à utiliser. Si les modifications du pourcentage total d’achèvement de la tâche sont réparties jusqu’à la date d’arrêt calculée de la tâche, il demande à l’utilisateur si les modifications doivent être réparties à une date de status et, le cas échéant, demande une date de status à utiliser.

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
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.