Méthode Application.AddResourcesFromProjectServer (Project)

Article
04/07/2023

Ouvre la boîte de dialogue Générer l’équipe si vous êtes connecté à Project Server et que vous êtes actuellement dans une vue de ressources.

Syntaxe

expression. AddResourcesFromProjectServer

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Booléen

Remarques

La méthode AddResourcesFromProjectServer n’est disponible que dans les affichages de ressources et renvoie une erreur récupérable (code d’erreur 1100) lorsqu’elle est appliquée dans un affichage autre que l’affichage de ressources.

Exemple

L’exemple suivant montre comment afficher la boîte de dialogue Créer une équipe à partir de Project Server. Tout d’abord, Project ajoute l’URL spécifiée dans la boîte de dialogue Options de collaboration (menu Collaborer) à la liste des sites de confiance de Microsoft Internet Explorer. Après confirmation, Project bascule vers un affichage Feuille de ressources et affiche la boîte de dialogue Générer l’équipe à partir de Project Server , s’il est connecté au Poste de travail en mode groupe. Project affiche la boîte de dialogue Générer l’équipe à partir du nom du projet lorsqu’il est connecté à Project Server.

Sub AddResources() 
   If Projects.Count = 0 Then 
      MsgBox "You must have at least one active project open." 
      Exit Sub 
   End If 
 
   If ActiveProject.ServerURL = "" Then 
      MsgBox "A Project Server URL has not been " _ 
         & "specified." & Chr(13) & "Click OK to select " _ 
         & "'Collaborate Using Project Server' and " _ 
         & "specify a valid URL in the Options dialog box " _ 
         & "(Tools menu)." 
      Application.OptionsWorkgroup 
   Else 
      ActiveProject.MakeServerURLTrusted 
      ViewApply Name:="Resource Sheet" 
      Application.AddResourcesFromProjectServer 
   End If 
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