Discussion :

[ngredith]

bonjour!

merci jeanjean6 pour ta reponse.

Jai défini un macro simple qui, en appuyant sur un bouton, vous informe (via un msbox) que votre ressource est surutilisée (si c'est le cas).
mes responsable souhaiterais plutôt que le message d'erreur s'affiche automatiquement après l'affectation, c'est à dire sans avoir besoin d'appuyer sur un bouton.
je ne sais pas comment faire.

Help me please?

MA MACRO

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Message_surutilisation() 
 Dim r As Resource 
 
 For Each r In ActiveProject.Resources 
 If Not r Is Nothing Then 
 If r.Overallocated = True Then 
 MsgBox"La ressource " & r.Name & " est Surutilisée" & " ; Capacité max = " & r.MaxUnits" 
 End If 
 End If 
 Next r 
 
 Set r = Nothing 
 
 End Sub

merci!

[jeanjean6]

Bonjour,

Je n'ai jamais fait ce genre d'action.
Mais tu devrais trouver ton bonheur sur ce lien :
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx notamment à l'aide des Change events, plus précisement ProjectAssignmentNew.

Tiens nous au courant si tu réussi cela peut intéresser d'autres utilisateurs.

Cdlt,

[ngredith]

bonsoir!
merci pour ta reponse jeanjean6. j'ai resolu mon probleme sans avoir eu besoin d'aller sur le site que tu a indiquer. il fallait definir une procedure "change"

MA MACRO

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Project_Change(ByVal pj As Project)
Dim r As Resource
 
For Each r In ActiveProject.Resources
  If Not r Is Nothing Then
     If r.Overallocated = True Then
        MsgBox "ATTENTION !" & vbCr & vbCr & "La ressource " & r.Name & " est Surutilisée" & vbCr & "Capacité max = " & r.MaxUnits 
     End If
  End If
Next r
 
Set r = Nothing
End Sub

CORDIALEMENT

[jeanjean6]

super merci pour ton retour !