Discussion :

[COCONUT2]

bonjour

Je souhaite récupérer dans une listbox la liste des fichiers MSP ouverts sur mon poste.

je pense que je n'ai pas les bonnes références de départ pour manipuler MSP.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_initialize()Dim pj As Object
Dim i As Integer
'Ouverture de MSProject
Set pj = CreateObject("MSProject.Project")
 
For i = 1 To pj.Count
  ListBox1.AddItem projects(i).Name
Next
 
End Sub

Ca doit etre tout bete mais je seche.

Merci d'avance
Christophe

[COCONUT2]

Bon je déterre ce vieux poste car le probleme s'est reposé.

Solutionné par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim pj As Object
Dim i As Integer
'Ouverture de MSProject
Set pj = CreateObject("MSProject.Project")
Set mpj = pj.Application.projects
aaa = mpj.Count
bbb = mpj(1).Name
 
For i = 1 To mpj.Count
  ListBox1.AddItem mpj(i).Name
Next

Pour l'instant ca présente l'inconvénient de créer une application MSP mais ca répond au probleme.

Avant d'ajouter le nom de fichier dans la liste, on peut toujours verifier que le nom du projet est différent de project1

Si quelqu'un cherche....

AU plaisir

Christophe