Propriété Application.GlobalBaseCalendars (Project)

Obtient ou définit une collection Calendars représentant les calendriers de base du fichier Global.mpt. Calendriers en lecture/écriture.

Syntaxe

expression. GlobalBaseCalendars

expressionUne variable qui représente un objetApplication.

Remarques

Pour ajouter un calendrier au modèle global d’entreprise, commencez par créer un calendrier local, puis ajoutez le calendrier local au modèle global d’entreprise avec la méthode MakeLocalCalendarEnterprise .

Pour activer la création de calendriers de base locaux dans un projet d’entreprise, cochez Autoriser les projets à utiliser des calendriers de base locaux dans la page Paramètres de serveur supplémentaires dans Project Web App.

Exemple

L’exemple suivant crée un calendrier de base local et importe ensuite le calendrier dans le modèle global d’entreprise.

Remarque

La propriété GlobalBaseCalendars est la collection de calendriers dans le fichier Global.mpt local, et non dans le modèle global d’entreprise.

Sub CreateEGlobalCalendar() 
    Dim globalCalendar As Calendar 
 
    BaseCalendarCreate Name:="NewBaseCalendar" 
    MakeLocalCalendarEnterprise OldName:="NewBaseCalendar", NewName:="NewBaseCalendar" 
 
    Debug.Print "Number of calendars in Global.mpt: " & GlobalBaseCalendars.Count 
 
    For Each globalCalendar In GlobalBaseCalendars 
        Debug.Print globalCalendar.Name 
    Next globalCalendar 
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.