Objet Year (projet)

Représente une année dans un calendrier de projet. L’objet Year est membre de la collection Années .

Remarques

La collection des années dans Project commence en 1984 et se termine en 2149. Dans les versions précédentes de Project, la planification peut s’étendre de 1984 à 2049.

Exemples

Utilisation de l'objet Year

Utilisez Années ( Index), où Index est le numéro d’index de l’année, pour retourner un seul objet Année . L’exemple suivant compte le nombre de jours ouvrés du mois de septembre 2012 pour chaque ressource sélectionnée.

Dim r As Resource
Dim d As Integer
Dim workingDays As Integer
Dim theMonth As PjMonth

theMonth = pjSeptember

For Each r In ActiveSelection.Resources()
    workingDays = 0
    With r.Calendar.Years(2012).Months(theMonth)
        For d = 1 To .Days.Count
            If .Days(d).Working = True Then
                workingDays = workingDays + 1
            End If
        Next d
    End With
    MsgBox "There are " & workingDays & " working days in " _
        & r.Name & "'s calendar for month " & theMonth
Next r

Utilisation de la collection Years

Utilisez la propriété Years pour renvoyer une collection Years (Années). L’exemple suivant montre comment répertorier toutes les années contenues dans le calendrier du projet actif.

Sub CountYears()
    Dim c As Long
    Dim temp As String
        
    For c = 1 To ActiveProject.Calendar.Years.Count
        temp = temp & ListSeparator & " " & _
            ActiveProject.Calendar.Years(c + 1983).Name
    Next c
            
    MsgBox Right$(temp, Len(temp) - Len(ListSeparator & " "))
End Sub

La figure 1 montre les résultats de la macro CompteAnnées .

Figure 1. Obtenir la liste des années disponibles

Méthodes

Propriétés

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.