Assigner une ressource matérielle
Bonjour,
J'ai fait une macro pour assigner des ressources automatiquement à mon planning :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub Affectation()
Dim T As Task
Dim Tache As Integer, TT As String
On Error Resume Next
SelectTaskColumn Column:="Noms ressources"
EditCut
For Each T In ActiveProject.Tasks
Select Case T.Text1
Case Is = "Dalle"
If T.Summary = False Then
T.Assignments.Add T.ID, ResourceID:=1, Units:=8
T.Assignments.Add T.ID, ResourceID:=2, Units:=500#
End If
End Select
Next
End Sub |
En ce qui concerne la ressource ID1 qui est une ressource Travail il assigne bien 8 unités alors que pour l'autre qui est une ressource Matériel il assigne toujours 1 unité au lieu de 500.
Comment dois-je faire pour résoudre mon problème.
Merci d'avance pour vos réponses.
Cordialement
Didier
