Propriété Project.CurrentDate (Project)

Obtient ou définit la date du jour pour un projet. Type de données Variant en lecture-écriture.

Syntaxe

expression. CurrentDate

Expression Variable qui représente un objet Project .

Remarques

Lorsqu’un projet s’ouvre, Project définit automatiquement la date actuelle du projet à la date du système.

Exemple

L’exemple suivant montre comment définir la date du jour du projet actif au lundi précédent.

Sub SetCurrentDateToPreviousMonday()
    ' Loop while the current date is not Monday. 
    Do While WeekDay(ActiveProject.CurrentDate) <> pjMonday 
        ' Subtract one day from the current date. 
        ActiveProject.CurrentDate = _ 
            DateSerial(Year(ActiveProject.CurrentDate), _ 
            Month(ActiveProject.CurrentDate), _ 
            Day(ActiveProject.CurrentDate - 1)) 
    Loop
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.