Méthode Application.TaskDeliverableCreate (Project)

Article
04/07/2023

Crée ou supprime un livrable pour la tâche sélectionnée. Disponible uniquement dans Project Professional.

Syntaxe

expression. TaskDeliverableCreate( _Create_ )

Expression Expression qui renvoie un objet Application .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Créer	Facultatif	Variant	Si aucun livrable n’est associé à la tâche sélectionnée, la valeur True crée un livrable. Si un livrable est associé à la tâche sélectionnée, la valeur False supprime ce livrable. La valeur par défaut est False.

Valeur renvoyée

Boolean

Remarques

Lorsque la tâche sélectionnée n’a pas de livrable, voici les résultats de l’exécution de la méthode TaskDeliverableCreate :

TaskDeliverableCreate(True) crée un livrable pour la tâche sélectionnée.
TaskDeliverableCreate(False) ne fait rien.

Lorsque la tâche sélectionnée a un livrable associé, voici les résultats de l’exécution de la méthode TaskDeliverableCreate :

TaskDeliverableCreate(True) affiche l’erreur Impossible de créer un lien livrable pour la tâche de sous-projet sélectionnée, suivie de l’erreur d’exécution 1004, Une erreur inattendue s’est produite avec la méthode .
TaskDeliverableCreate(False) supprime le livrable.

La méthode TaskDeliverableCreate correspond à la commande Créer des livrables du menu déroulant Livrable sous l’onglet Tâche dans le Ruban. Si aucun livrable n’est associé à la tâche sélectionnée, la commande Créer des livrables en crée un. Si un livrable est associé à la tâche sélectionnée, Créer des livrables affiche une icône active et le fait de sélectionner cette commande supprime le livrable.

Remarque

Vous ne pouvez pas créer un livrable de tâche tant que vous n’avez pas publié le projet et créé un espace de travail de projet. Par ailleurs, vous ne pouvez pas créer de livrable sur une tâche récapitulative.

Exemple

L’exemple suivant crée ou supprime un livrable pour la tâche sélectionnée dans un projet publié.

Sub ToggleDeliverable() 
    Dim deliverGuid As String 
 
    deliverGuid = ActiveCell.Task.deliverableGuid 
 
    If deliverGuid = "00000000-0000-0000-0000-000000000000" Then 
        TaskDeliverableCreate Create:=True 
    Else 
        TaskDeliverableCreate Create:=False 
    End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via