Discussion :

[nb_fr31]

salut
j'ai fais ce programme mais il foctionne pas toujours

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub test()
 
Dim oTa As Task
Dim oA As Assignment
 
For Each oTa In ActiveProject.Tasks
 
    For Each oA In oTa.Assignments
 
    oA.Text25 = oTa.Text25
 
    Next oA
 
Next oTa
 
End Sub

le but parcourir les ligne , lorsque ont trouve une ressource , en regarde le champ text25 et en l'affecte la valeur du champ text25 de la tache qui est en dessus de cette ressource

[Heureux-oli]

Si tu as Access sur ton PC, sauvegarde ton projet en .mdb

Tu ouvres le fichier .mdb à la place d'un projet et c'est bien plus facile de manipuler les données en Access.

[nb_fr31]

salut
le programme fonctionne mais il me génère sa

Object variable or With block variable not set (Error 91)

voila le programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public Sub test()
Dim oTa As Task
Dim oA As Assignment
 
For Each oTa In ActiveProject.Tasks
    For Each oA In oTa.Assignments
       oA.Text25 = oTa.Text25
    Next oA
Next oTa
 
End Sub