Objet SharedWorkspaceTask (Office)

L'objet SharedWorkspaceTask représente une tâche dans un espace de travail de document partagé. Membre de la collection SharedWorkspaceTasks.

Remarques

Utilisez l'objet SharedWorkspaceTask pour gérer les tâches affectées aux membres collaborant sur les documents dans l'espace de travail partagé.

Utilisez la propriété Item (index) de la collection SharedWorkspaceTasks pour renvoyer un objet SharedWorkspaceTask spécifique.

Utilisez la propriété Title pour définir le texte de la tâche qui s’affiche sous l’onglet Tâches du volet Office Espace de travail partagé et sur la page web de l’espace de travail partagé. Utilisez la propriété Description pour donner des informations supplémentaires sur la tâche.

Affectez la tâche à un membre de l’espace de travail à l’aide de la propriété AssignedTo et du nom d’utilisateur de domaine du membre. Spécifiez une date d’échéance pour la tâche à l’aide de la propriété DueDate .

Utilisez les énumérations priorité et état de la tâche pour indiquer l’importance relative de la tâche et mettre à jour son état.

Utilisez la méthode Save pour télécharger les modifications vers le serveur après avoir modifié les propriétés de l'objet SharedWorkspaceTask.

Utilisez les propriétés CreatedBy, CreatedDate, ModifiedBy et ModifiedDate pour renvoyer des informations sur l'historique de chaque tâche.

Exemple

Cet exemple montre comment renvoyer le nombre de tâches figurant dans l'espace de travail partagé et des informations sur chacune d'elles.

    Dim swsTask As Office.SharedWorkspaceTask 
    Dim strTaskInfo As String 
    strTaskInfo = "The shared workspace contains " & _ 
    ActiveWorkbook.SharedWorkspace.Tasks.Count & " Task(s)." & vbCrLf 
    For Each swsTask In ActiveWorkbook.SharedWorkspace.Tasks 
        strTaskInfo = strTaskInfo & swsTask.Title & vbCrLf & _ 
            " - Description: " & swsTask.Description & vbCrLf & _ 
            " - Assigned to: " & swsTask.AssignedTo & vbCrLf & _ 
            " - Due date: " & swsTask.DueDate & vbCrLf & _ 
            " - Priority: " & swsTask.Priority & vbCrLf & _ 
            " - Status: " & swsTask.Status & vbCrLf 
    Next 
    MsgBox strTaskInfo, vbInformation + vbOKOnly, _ 
        "Tasks in Shared Workspace" 
    Set swsTask = Nothing 

Voir aussi

• Membres de l’objet SharedWorkspaceTask
• Référence du modèle objet

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.