[Toutes versions] Copier données Project sur Excel avec condition [Résolu]

[Beubeu1989]

Bonjour,

Je voudrai, sous VBA, récuperer les données d'une feuille de Microsoft Project (par exemple, la ligne "noms" et %) et l'envoyer sur Excel avec une condition.
Par exemple, lorsque le % est de 50, copier le nom de la tâche et la coller dans une cellule excel.

Pouvez-vous m'aider?

Cordialement.

[Beubeu1989]

Pas d'idée?
Il faut d'abord sélectionner la tâche et la traiter apparement mais je ne connais pas les commandes pour traiter la tâche sélectionner.
Je voudrai faire la procédure : SI colonne %=50, copier-coller la tâche sur une cellule excel. J'ai essayé:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Sub ok()
Dim pj As Object
Dim i As Integer
'Ouverture de MSProject
Set pj = CreateObject("MSProject.Project")
pj.Application.FileOpen "E:\Projet1.mpp"
ActiveProject.Application.Visible = True
 
'Condition qui ne fonctionne pas encore
For i = 1 To 20
SelectTaskField Row:=i, Column:="Nom"
If ....
End If
Next

La programmation VBA sur project est assez difficile pour moi. Pouvez-vous m'aider?

[Beubeu1989]

Pour info, pour traiter les tâches:

Code :

1
2
3
4
5
Dim T as Task
T.Name
T.UniqueID
T.Cost
'etc

[Sebung]

est'il possible d'avoir plus de précision?

Merci

[cazimiro]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
' Déclaration des variable
 
Dim t As Variant
Dim AvancementTest As Boolean
AvancementTest = False
 
 
'1- Test pour verifier tes 50%
For Each t In ActiveProject.Tasks
If Not t. "Avancement ou autre chose" = "50%" Then
AvancementTest = True
End If
Next t

..... Mais il reste encore long de code à tapper pour envoyer ca vers excel