Méthode Application.ManageSiteColumns (Project)

Article
04/07/2023

Affiche la boîte de dialogue Gérer les champs , qui permet de synchroniser les champs intégrés et les champs personnalisés dans un projet local avec des colonnes spécifiées dans une liste de tâches SharePoint 2013.

Syntaxe

expression. ManageSiteColumns

Expression Expression qui renvoie un objet Application .

Valeur renvoyée

Boolean

Remarques

La méthode ManageSiteColumns est disponible uniquement dans Project Professionnel, avec un projet local qui a été enregistré dans une liste de tâches SharePoint. Pour plus d’informations, consultez la méthode SynchronizeWithSite .

Le tableau ci-dessous affiche les colonnes et les champs synchronisés par défaut dans la boîte de dialogue Gérer les champs. Les colonnes SharePoint Priorité et État de la tâche n’étant synchronisées avec aucun champ Project par défaut, ces éléments sont vides.

Sync	Champ Project	Colonne SharePoint
Oui	Nom	Titre
Oui	Début	Date de début
Oui	Terminer	Date d’échéance
Oui	% achevé	% achevé
Oui	Noms des ressources	Affecté à
Oui	Predecessors	Predecessors
Non		Priorité
Non		État de la tâche

Exemple

Pour ajouter le champ Priorité dans la colonne Champ de projet et effectuer une synchronisation avec la colonne Priorité dans SharePoint, procédez comme suit :

Renommez un champ personnalisé de texte dans Project ; par exemple, renommez Text1 en Priorité SharePoint.
Exécutez la méthode ManageSiteColumns, puis dans la boîte de dialogue Gérer les champs, sélectionnez Priorité SharePoint (Text1) dans la liste déroulante Champ de projet qui correspond à Priorité dans la colonne SharePoint.
Lancez l’exécution de la macro SyncPriority.

Sub SyncPriority() 
    Dim tsk As Task 
    Dim msfPriority As String 
 
    Application.SynchronizeWithSite 
 
    For Each tsk In ActiveProject.Tasks 
        msfPriority = tsk.Text1 
 
        Select Case msfPriority 
            Case "(1) High" 
               tsk.Priority = 700 
           Case "(2) Normal" 
               tsk.Priority = 500 
           Case "(3) Low" 
               tsk.Priority = 300 
        End Select 
    Next tsk 
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.

Partager via