Méthode Project.DeliverablesGetByProject (Project)

Article
04/07/2023

Obtient une liste de tous les livrables pour le projet d’entreprise spécifié dans le membre XML de l’objet retourné. Project Professional uniquement.

Syntaxe

expression. DeliverablesGetByProject( _ProjectGuid_ )

Expression Variable qui représente un objet Project .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ProjectGuid	Requis	String	GUID du projet d’entreprise.

Valeur renvoyée

Object

Remarques

L’utilisation de VBA pour traiter le membre XML de l’objet de résultat DeliverablesGetByProject nécessite un code complexe et non intuitif. Nous vous recommandons d’utiliser les outils de développement Office et SharePoint dans Visual Studio 2012 pour créer un complément pour Project lorsque vous utilisez des fonctionnalités Project Server et SharePoint. L’approche la plus simple du traitement XML consiste à utiliser les méthodes LINQ to XML dans le .NET Framework 4.

Exemple

Dans l’exemple suivant, le projet d’entreprise nommé Simple inclut un livrable défini pour un jalon nommé M1. L’URL du site du projet, qui contient la liste Livrables pour le projet Simple, est https://ServerName/PWA/Simple. La macro TestDeliverables affiche une boîte de message qui contient une partie du résultat XML.

La valeur projectGuid retournée par la méthode GetServerProjectGuid inclut des accolades autour du GUID, par exemple, « {1b14e65c-5601-4565-acb9-3822078a17fb} ». Utilisez une valeur GUID avec ou sans accolades.

Option Explicit 
 
Sub TestDeliverables() 
    Dim projectGuid As String 
    Dim ds As Object 
 
    projectGuid = ActiveProject.GetServerProjectGuid 
 
    ' Optional: Removing the braces on the GUID value makes no difference. 
    ' projectGuid = Mid(projectGuid, 2, 36) 
 
    Set ds = ActiveProject.DeliverablesGetByProject(projectGuid) 
 
    MsgBox ds.XML 
 
    Debug.Print ds.XML 
End Sub

Remarque

Pour rechercher les membres d’une variable de type Object, telle que la variable ds , définissez une montre sur l’objet, puis définissez un point d’arrêt après avoir affecté une valeur à l’objet. Développez la variable dans le volet Espion et vous pouvez voir le membre XML .

La boîte de message affiche uniquement les 1 024 premiers caractères des 17 295 caractères du résultat XML (dans cet exemple). Dans le résultat XML suivant, les attributs sont divisés en lignes distinctes. Le résultat XML réel se trouve sur une seule ligne, que vous pouvez voir si vous imprimez le résultat dans le volet Exécution dans vbE. L’exemple n’affiche pas le schéma XML, qui constitue la majeure partie du contenu.

Les champs ows_ sont définis dans la liste SharePoint. Certains champs que vous souhaiterez peut-être extraire incluent deliverableUid, workspaceUri, linkedTaskUid (GUID de la tâche dans Project Server), ows_LinkTitle (nom de la tâche qui contient le livrable), ows_Created, ows_Modified, ows_Author, ows_CommitmentStart et ows_CommitmentFinish.

<DeliverableMasterDocument> 
 <Deliverables> 
 <Deliverable deliverableUid="6f8cb9a5-d9b8-496d-af90-1e88dc57f46a" projectUid="1b14e65c-5601-4565-acb9-3822078a17fb" 
 type="1" tpId="1" workspaceUri="https://ServerName/PWA/Simple" workspaceName="PWA/Simple" workspaceVServerUri="https://ServerName" 
 listUid="168a6e6f-6993-4315-a593-7ffa21683e57" state="1"> 
 <Client linkedTaskUid="d3eaf532-9ab9-4eb2-8f85-fd41a1b5db0c" ows_ID="1" 
 ows_ContentTypeId="0x010074416DB49FB844B99C763FA7171E7D1F00001031A192BFCA4D83CA160D2BCAB735" 
 ows_ContentType="Project Site Deliverable" ows_Title="M1" ows_Modified="2010-02-19 13:30:19" 
 ows_Created="2010-02-19 13:29:45" ows_Author="1073741823;#System Account" 
 ows_Editor="1073741823;#System Account" ows_owshiddenversion="2" ows_WorkflowVersion="1" 
 ows__UIVersion="512" ows__UIVersionString="1.0" ows_Attachments="0" ows__ModerationStatus="0" 
 ows_LinkTitleNoMenu="M1" ows_LinkTitle="M1" ows_LinkTitle2="M1" ows_SelectTitle="1" 
 ows_Order="100.000000000000" ows_GUID="{FFA3E0F9-DBB4-44B6-B09D-1C2AB7A9EF92}" 
 ows_FileRef="1;#PWA/Simple/Lists/Deliverables/1_.000" ows_FileDirRef="1;#PWA/Simple/Lists/Deliverables" 
 ows_Last_x0020_Modified="1;#2010-02-19 13:29:45" ows_Created_x0020_Date="1;#2010-02-19 13:29:45" 
 ows_FSObjType="1;#0" ows_SortBehavior="1;#0" ows_PermMask="0x7fffffffffffffff" ows_FileLeafRef="1;#1_.000" 
 ows_UniqueId="1;#{29AF34EA-EA27-48C7-80A6-83B0A95DB9BD}" ows_ProgId="1;#" 
 ows_ScopeId="1;#{73C1A12E-DBA2-4BE2-87EE-1FF5EF1494DD}" ows__EditMenuTableStart="1_.000" 
 ows__EditMenuTableStart2="1" ows__EditMenuTableEnd="1" ows_LinkFilenameNoMenu="1_.000" 
 ows_LinkFilename="1_.000" ows_LinkFilename2="1_.000" ows_ServerUrl="/PWA/Simple/Lists/Deliverables/1_.000" 
 ows_EncodedAbsUrl="https://jc2vm1/PWA/Simple/Lists/Deliverables/1_.000" ows_BaseName="1_" ows_MetaInfo="1;#" 
 ows__Level="1" ows__IsCurrentVersion="1" ows_ItemChildCount="1;#0" ows_FolderChildCount="1;#0" 
 ows_CommitmentStart="2010-02-02 00:00:00" ows_CommitmentFinish="2010-02-02 00:00:00" ows_SuppressCreateEvent="1"/> 
 </Deliverable> 
 </Deliverables> 
 <Schemas> 
 <Schema . . . 
 . . . > 
 <Fields> 
 <Field . . . /> 
 . . . 
 </Fields> 
 </Schema> 
 </Schemas> 
</DeliverableMasterDocument>

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.

Share via