Connaitre les fichiers MS Project ouverts

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:

---

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

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

Solutionné par:

Code:

---

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.... :applo:

AU plaisir

Christophe