Créer un site de projet via le psi

[tito55]

Bonjour,

J'aimerais créer un site de projet en même temps que mon projet.

Voici mon code qui crée mon projet mais le site de projet ne se crée pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Using client As SvcProject.ProjectClient = New SvcProject.ProjectClient 
  Using nouveauProjetDs As SvcProject.ProjectDataSet = New SvcProject.ProjectDataSet
 
    Try
      client.Open()
 
      Dim projRow = nouveauProjetDs.Project.NewProjectRow
      projRow.PROJ_TYPE = Convert.ToInt32(PSLibrary.Project.ProjectType.Project)
      projRow.PROJ_UID = Guid.NewGuid()
      projRow.PROJ_NAME = String.Format("Test_{1}_{0:yyyyMMdd-HHmm}", Date.Now, 
projRow.ENTERPRISE_PROJECT_TYPE_UID = New Guid("88e49ddd-f9d7-4ac0-995c-9d2a081d8b29 ")
      nouveauProjetDs.Project.AddProjectRow(projRow)
      Dim jobId As Guid = Guid.NewGuid
 
      client.QueueCreateProject(projRow.PROJ_UID, dataset:=nouveauProjetDs, validateOnly:=False)
 
      client.QueuePublish(jobUid:=jobId, projectUid:=projRow.PROJ_UID, fullPublish:=True, WssURL:="SERVEUR" & projRow.PROJ_NAME)
 
      client.Close()
    Catch fexp As FaultException
    Catch ex As Exception
    End Try
 
  End Using
End Using

Merci de votre aide !