Discussion :

[maxeur]

Bonjour à tous

J'ai un petit soucis en fait je dois mettre des valeurs de Ms project à jour et le probleme est que ca ne fonctionne pas...

Le truc est que la derniere fois j'ai fais des transferts dans l'autre sens ms project->access et que le code est un peu différent et la je ne comprend pas

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
finish_date_predecess = VBA.Right(Project.ActiveProject.Tasks(VBA.Val(predecess)).GetField(pjTaskfinish), 8)
                    finish_date_predecess = VBA.Left(finish_date_predecess, 5) & VBA.Replace(VBA.Right(finish_date_predecess, 3), "/", "/20")
 
 
                    If VBA.CDate(finish_date_predecess) > VBA.CDate(Date_fin) Then
                        Project.ActiveProject.Tasks.UniqueID(id).SetField pjTaskPredecessors, ""
                    End If
 
                End If
 
               Project.ActiveProject.Tasks.UniqueID(id).SetField pjTaskStart, Date_fin

Le probleme est que quand je récupérais les valeurs vers ma base je n'utilisais pas les même noms j'utilisais "pjtasklinefinish" pour la date de fin et la j'utilise "pjtaskstart", "pjtaskpredecessor" et "pjtaskfinish" je ne comprend pas à quoi servent ces valeurs
De plus un autre probleme subsiste c'est que j'ai deux fois ce code une pour la date de debut et une pour la date de fin.quand je le fais que pour la date de fin ca fonctionne et quand je met les deux ca bloque. Je pense que ca vient du doublon entre les deux valeurs que je met à jour vu que du coup j'ai utiliser deux fois les meme nom pour le "pjtask" mais je ne sais pas vraiment

Si quelqu'un pouvait m'expliquer cela m'arrangerait grandement

merci d'avance

[maxeur]

En fait je pense que j'ai compris mais je ne suis pas sûr ici on met à jour le champ prédesseceur et le champ début si la condition est vérifiée pour le prédecesseur ??