Discussion :

[maxeur]

bonjour à tous Je viens d'arriver dans une entreprise et j'ai encore un peu de mal avec la programmation et en fait je doit apporter des améliorations à un programme déjà créé.

La fonction que je dois améliorer et un fonction de transfert de planning entre ms project et access et en fait il y deux lignes de codes que je ne comprends pas si quelqu'un pourrait m'expliquer vite fait car je pense que ce ne doit pas etre trés compliqué pour quelqu'un qui s'y connait

voila je vous met les deux lignes de code que je ne comprends pas

Code :

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

1
2
date_fin = VBA.Right(Project.ActiveProject.Tasks(cpt_I).GetField(pjTaskBaselineFinish), 8)
date_fin = VBA.Left(date_fin, 5) & VBA.Replace(VBA.Right(date_fin, 3), "/", "/20")

Normalement ces deux lignes prennent la colonne "fin" dans ms project dont je ne vois pas le nom ici et modifie le format de la date on passe de Jeu 13/09/07 à 13/09/2007

Si vous auriez 5 min pour m'expliquer ca serai vraiment gentil de votre part

je vous remercie d'avance

[Maxence HUBICHE]

Bonjour et bienvenue sur le forum.
Juste une petite remarque : quand tu inscris du code, penses à le mettre en forme "Code"

Sinon, voici la description de tes 2 lignes :

date_fin = _____________________________ La variable Date_Fin vaut
....VBA.Right(___________________________ A droite de
........Project.___________________________ Dans Project
............ActiveProject.___________________ Le projet en cours
................Tasks(cpt_I)._________________ La tâche n° cpt_I
....................GetField(pjTaskBaselineFinish)_ Récupérer le champ De date de fin
........, 8)______________________________ Conserver seulement 8 caracteres


date_fin = _____________________________ La variable Date_Fin vaut
....VBA.Left(____________________________ A gauche de
........date_fin, _________________________ La variable DateFin
........5)_______________________________ 5 caractères
....&__________________________________ Auquel j'ajoute
....VBA.Replace(________________________ Le remplacement dans la chaine
........VBA.Right(________________________ située à droite
............date_fin________________________ de la Date_Fin
............, 3)___________________________ sur 3 caractère
........, "/"______________________________ du caractère \
........, "/20")___________________________ Par les caractères \20


Voilà

[maxeur]

je te remercie pour ta réponse mais je risque de revenir te voir car j'ai un petit probleme au niveau du nom du champ qui n'a pas le meme nom sous ms project.
Je te remercie tout de meme je vais faire des essais et si ce n'est pas bon je te demanderai encore conseil si ca ne te dérange pas

[maxeur]

merci beaucoup tu as résolu mon problème et en meme temps enlever un grosse épine du pied grace à toi j'ai pu finir mon amélioration et du coup surement partir en week end plus tot merci encore une fois