Vous m'aviez donn=E9 la commande suivante:
Activeselection.assignments(1).UniqueID
Mais je voudrais savoir si il est possible de le recuperer=20
sans avoir a renseigner le numero compris dans=20
assigments,juste en etant positionne sur la ligne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gérard DUCOURET
Bonjour, Réponse tardive mais peut être encore utile ? La procédure suivante ne fait-elle pas ce qui est demandé ?
Sub Attributions() Dim oTache As Object, oAffect As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then For Each oAffect In oTache.Assignments Debug.Print oAffect.UniqueID, oAffect.ResourceName, oAffect.TaskName Next End If Next oTache
End Sub
Gérard Ducouret PragmaSoft
"Jan De Messemaeker" a écrit dans le message de news:
Bonjour,
Il est vrai que je m'étais trompé, l'objet ActiveSelection n'a pas l'attribut assignments Don cela ne marche pas, il faut de toute façon passer par ressource ou tâche et chercher l'affectation en question.
Désolé.
-- Jan De Messemaeker Microsoft Project Most Valuable Professional Project Management Consultancy Prom+ade BVBA 32-495-300 620 "xav" schreef in bericht news:097e01c34528$96cd2120$ Bonjour,
je voudrais savoir si il est possible de recuperer 2097157:
Vous m'aviez donné la commande suivante: Activeselection.assignments(1).UniqueID
Mais je voudrais savoir si il est possible de le recuperer sans avoir a renseigner le numero compris dans assigments,juste en etant positionne sur la ligne.
Merci
Bonjour,
Réponse tardive mais peut être encore utile ?
La procédure suivante ne fait-elle pas ce qui est demandé ?
Sub Attributions()
Dim oTache As Object, oAffect As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
For Each oAffect In oTache.Assignments
Debug.Print oAffect.UniqueID, oAffect.ResourceName, oAffect.TaskName
Next
End If
Next oTache
End Sub
Gérard Ducouret
PragmaSoft
"Jan De Messemaeker" <jandemes.nospam@glo.be> a écrit dans le message de news:
uYP3tDVRDHA.2088@TK2MSFTNGP11.phx.gbl...
Bonjour,
Il est vrai que je m'étais trompé, l'objet ActiveSelection n'a pas
l'attribut assignments
Don cela ne marche pas, il faut de toute façon passer par ressource ou tâche
et chercher l'affectation en question.
Désolé.
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"xav" <sprintaracingteam@hotmail.com> schreef in bericht
news:097e01c34528$96cd2120$a501280a@phx.gbl...
Bonjour,
je voudrais savoir si il est possible de recuperer 2097157:
Vous m'aviez donné la commande suivante:
Activeselection.assignments(1).UniqueID
Mais je voudrais savoir si il est possible de le recuperer
sans avoir a renseigner le numero compris dans
assigments,juste en etant positionne sur la ligne.
Bonjour, Réponse tardive mais peut être encore utile ? La procédure suivante ne fait-elle pas ce qui est demandé ?
Sub Attributions() Dim oTache As Object, oAffect As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then For Each oAffect In oTache.Assignments Debug.Print oAffect.UniqueID, oAffect.ResourceName, oAffect.TaskName Next End If Next oTache
End Sub
Gérard Ducouret PragmaSoft
"Jan De Messemaeker" a écrit dans le message de news:
Bonjour,
Il est vrai que je m'étais trompé, l'objet ActiveSelection n'a pas l'attribut assignments Don cela ne marche pas, il faut de toute façon passer par ressource ou tâche et chercher l'affectation en question.
Désolé.
-- Jan De Messemaeker Microsoft Project Most Valuable Professional Project Management Consultancy Prom+ade BVBA 32-495-300 620 "xav" schreef in bericht news:097e01c34528$96cd2120$ Bonjour,
je voudrais savoir si il est possible de recuperer 2097157:
Vous m'aviez donné la commande suivante: Activeselection.assignments(1).UniqueID
Mais je voudrais savoir si il est possible de le recuperer sans avoir a renseigner le numero compris dans assigments,juste en etant positionne sur la ligne.