Méthode Application.GetProjectServerVersion (Project)

Article
04/07/2023

Cette méthode vérifie la version de Project Server pour le projet actif. Elle permet également de vérifier si une URL de serveur donnée pointe vers un serveur Project Server valide qui fonctionne.

Syntaxe

expression. GetProjectServerVersion( _ServerURL_ )

expression Variable qui représente un objet « Application ».

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ServerURL	Requis	String	Chaîne qui représente l’URL du serveur Project Server dont la version doit être vérifiée.

Valeur renvoyée

PjServerVersionInfo

Remarques

Si l’argument ServerURL ne pointe pas vers un serveur Project Server valide et qui fonctionne, la méthode renvoie une erreur récupérable (code d’erreur 1004).

Exemple

Dans l’exemple suivant, un flux XML qui représente les paramètres du serveur Project Server suivants est renvoyé : ProjectServerSettingsRequest, AdminDefaultTrackingMethod, AdminTrackingLocked, ProjectIDInProjectServer, ProjectManagerHasTransactions, ProjectManagerHasTransactionsForCurrentProject, TimePeriodGranularity et GroupsForCurrentProjectManager.

Sub mpsVersion() 
 URL = ActiveProject.ServerURL 
 If Application.GetProjectServerVersion(URL) = pjServerVersionInfo_P10 Then 
 ActiveProject.MakeServerURLTrusted 
 xmlStream = Application.GetProjectServerSettings( _ 
 RequestXML:="<ProjectServerSettingsRequest>" _ 
 & "<AdminDefaultTrackingMethod /><AdminTrackingLocked />" _ 
 & "<ProjectIDInProjectServer />" _ 
 & "<ProjectManagerHasTransactions />" _ 
 & "<ProjectManagerHasTransactionsForCurrentProject />" _ 
 & "<TimePeriodGranularity /><GroupsForCurrentProjectManager />" _ 
 & "</ProjectServerSettingsRequest>") 
 MsgBox xmlStream 
 Else 
 MsgBox "This macro returns information from Project " _ 
 & "Server. Please choose 'Collaborate using Project " _ 
 & "Server' and specify a valid Project Server URL " _ 
 & "for this project in Collaboration Options (Collaborate menu)." 
 Exit Sub 
 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