Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Project Récupérer en VB le fullname projet externe

Récupérer en VB le fullname projet externe

8 réponses
Avatar
FDG
Bonjour,

j'essaye de r=E9cup=E9rer par macro, pour une tache issue d'un=20
fichier ins=E9r=E9, le nom complet de son fichier d'origine.

Ce nom est affich=E9 par la colonne "Fichier projet externe"
Mais comment s'appelle le champ ?

Tous mes remerciements pour me d=E9panner. Cela fait un bout=20
de temps que je tourne en rond.
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Jan De Messemaeker
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in bericht
news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue d'un
fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet externe"
Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un bout
de temps que je tourne en rond.
Avatar
Gérard Ducouret
Bonjour FDG,
Tu peux t'inspirer de l'instruction VBA:

CheminFichier = ActiveProject.Tasks(N).TaskDependencies(i).From.Project

Gérard Ducouret


"FDG" a écrit dans le message de
news: 455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue d'un
fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet externe"
Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un bout
de temps que je tourne en rond.
Avatar
JF Morvan - Project MVP
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue d'un
fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet externe"
Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un bout
de temps que je tourne en rond.


.



Avatar
Jan De Messemaeker
Non
J'essaie avant de poster :-)

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP" schreef in
bericht news:4b3601c3e42e$11ed78b0$
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue d'un
fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet externe"
Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un bout
de temps que je tourne en rond.


.



Avatar
JF Morvan - Project MVP
Ben, c'est à dire que moi aussi.
Ci dessous une procédure qui montre le nom des projets
insérés.
:->

-------------------------------------------
Sub TuVoisQueCaMontreLeNomDuSousProjet()

Dim oTache As Task

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Subproject > "" Then
MsgBox oTache.Subproject
End If
End If
Next oTache
--------------------------------------


End Sub
-----Message d'origine-----
Non
J'essaie avant de poster :-)

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:4b3601c3e42e$11ed78b0$
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue
d'un


fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet
externe"


Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un
bout


de temps que je tourne en rond.


.





.




Avatar
Jan De Messemaeker
Bonsoir,

Ah Oui, mais ce n'était pas la question originale (je copie)
---------------
j'essaye de récupérer par macro, pour une tache issue
d'un
fichier inséré, le nom complet de son fichier d'origine.
------------



Or à partir d'une tâche quelconque DU PROJET INSéRé tu ne trouves pas le
subproject qui n'existe que dans le master...

(Les tout vieux sont têtus comme les ânes)
:-))

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP" schreef in
bericht news:42dc01c3e43a$0abf2140$
Ben, c'est à dire que moi aussi.
Ci dessous une procédure qui montre le nom des projets
insérés.
:->

-------------------------------------------
Sub TuVoisQueCaMontreLeNomDuSousProjet()

Dim oTache As Task

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Subproject > "" Then
MsgBox oTache.Subproject
End If
End If
Next oTache
--------------------------------------


End Sub
-----Message d'origine-----
Non
J'essaie avant de poster :-)

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:4b3601c3e42e$11ed78b0$
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue
d'un


fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet
externe"


Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un
bout


de temps que je tourne en rond.


.





.




Avatar
JF Morvan - Project MVP
Bonjour Jan,

Effectivement, je n'ai pas eu la même lecture de la
question que toi. Je n'ai pas pensé qu'il s'agissait d'une
tâche QUELCONQUE du projet inséré parceque FDG faisait
référence au champ "Fichier Projet Externe".

Or dans la version de Project 2002 que j'ai sous les yeux,
la colonne (qui s'appelle dans ma version "Fichier de sous-
projet") n'est renseignée que sur la ligne récapitulative
du projet.

En tous cas, je suppose que FDG a eu sa réponse et j'ai eu
du plaisir à échanger avec toi. :-)

Cordialement

JF Morvan
www.stk-management.fr

PS : 2 questions
1. Tu es si vieux que ça ?
2. Tu comptes te rendre au Summit en Avril ?


-----Message d'origine-----
Bonsoir,

Ah Oui, mais ce n'était pas la question originale (je
copie)

---------------
j'essaye de récupérer par macro, pour une tache issue
d'un
fichier inséré, le nom complet de son fichier d'origine.
------------



Or à partir d'une tâche quelconque DU PROJET INSéRé tu ne
trouves pas le

subproject qui n'existe que dans le master...

(Les tout vieux sont têtus comme les ânes)
:-))

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:42dc01c3e43a$0abf2140$
Ben, c'est à dire que moi aussi.
Ci dessous une procédure qui montre le nom des projets
insérés.
:->

-------------------------------------------
Sub TuVoisQueCaMontreLeNomDuSousProjet()

Dim oTache As Task

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Subproject > "" Then
MsgBox oTache.Subproject
End If
End If
Next oTache
--------------------------------------


End Sub
-----Message d'origine-----
Non
J'essaie avant de poster :-)

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:4b3601c3e42e$11ed78b0$
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue
d'un


fichier inséré, le nom complet de son fichier d'origine.

Ce nom est affiché par la colonne "Fichier projet
externe"


Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un
bout


de temps que je tourne en rond.


.





.




.





Avatar
FDG
OUF ! Pour une réponse c'en est une !
En tout cas, GRAND MERCI de vous être penché sur mon cas.
Je ne pensais pas que cela provoquerait tant de réflexion
et de persévérance.

Il ne me reste plus effectivement qu'à tester et voir
qu'elle est la meilleure solution dans mon contexte.

Pour être plus précis, je veux exporter toutes les tâches
avec le nom de leur fichier d'appartenance. Je pense que
j'ai les éléments.

PS : Mais non, Jan t'es pas si vieux ! Même si l'écorce
est ridée, les neurones semblent bien fonctionner tout au
moins.
Quant à moi, j'ai eu du plaisir à vous lire ! Thank's

-----Message d'origine-----
Bonjour Jan,

Effectivement, je n'ai pas eu la même lecture de la
question que toi. Je n'ai pas pensé qu'il s'agissait
d'une

tâche QUELCONQUE du projet inséré parceque FDG faisait
référence au champ "Fichier Projet Externe".

Or dans la version de Project 2002 que j'ai sous les
yeux,

la colonne (qui s'appelle dans ma version "Fichier de
sous-

projet") n'est renseignée que sur la ligne récapitulative
du projet.

En tous cas, je suppose que FDG a eu sa réponse et j'ai
eu

du plaisir à échanger avec toi. :-)

Cordialement

JF Morvan
www.stk-management.fr

PS : 2 questions
1. Tu es si vieux que ça ?
2. Tu comptes te rendre au Summit en Avril ?


-----Message d'origine-----
Bonsoir,

Ah Oui, mais ce n'était pas la question originale (je
copie)

---------------
j'essaye de récupérer par macro, pour une tache issue
d'un
fichier inséré, le nom complet de son fichier
d'origine.




------------

Or à partir d'une tâche quelconque DU PROJET INSéRé tu
ne


trouves pas le
subproject qui n'existe que dans le master...

(Les tout vieux sont têtus comme les ânes)
:-))

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:42dc01c3e43a$0abf2140$
Ben, c'est à dire que moi aussi.
Ci dessous une procédure qui montre le nom des projets
insérés.
:->

-------------------------------------------
Sub TuVoisQueCaMontreLeNomDuSousProjet()

Dim oTache As Task

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Subproject > "" Then
MsgBox oTache.Subproject
End If
End If
Next oTache
--------------------------------------


End Sub
-----Message d'origine-----
Non
J'essaie avant de poster :-)

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"JF Morvan - Project MVP"
management.fr> schreef in

bericht news:4b3601c3e42e$11ed78b0$
Jan, FDG,

N'est-ce pas plutôt la propriété Subproject ?

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,

Si l'object tâche en question s'appelle AnyTask:

Projects(anytask.project).fullname

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"FDG" schreef in
bericht

news:455301c3e424$6ed56420$
Bonjour,

j'essaye de récupérer par macro, pour une tache issue
d'un


fichier inséré, le nom complet de son fichier
d'origine.





Ce nom est affiché par la colonne "Fichier projet
externe"


Mais comment s'appelle le champ ?

Tous mes remerciements pour me dépanner. Cela fait un
bout


de temps que je tourne en rond.


.





.




.

.