Propriété Application.IsCheckedOut (Project)

Article
04/07/2023

Obtient si un projet ouvert est extrait de Project Web App par l’utilisateur. Boolean (en lecture seule).

Syntaxe

expression. IsCheckedOut

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ProjectName	Requis	String	Nom d’un projet ouvert dans Project Professionnel.

Remarques

Pour un projet ouvert dans Project Professionnel, la valeur de la propriété IsCheckedOut a la valeur True si le projet est extrait par l’utilisateur actuel. Si le projet spécifié n’est pas extrait par l’utilisateur actuel (autrement dit, le projet est ouvert mais en mode lecture seule) ou est extrait par un autre utilisateur, la valeur IsCheckedOut est False.

La propriété IsCheckedOut retourne l’erreur d’exécution 1004, « Une erreur inattendue s’est produite avec la méthode » dans les cas suivants :

Le projet spécifié n’est pas ouvert dans Project Professionnel.
Le projet spécifié est un fichier projet local tel que Project1.mpp.

Exemple

L’exemple suivant détermine si un projet ouvert est un projet d’entreprise et est extrait. Si le projet n’est pas extrait, l’exemple tente d’extraire le projet. Si le projet est extrait par un autre utilisateur, Project affiche une boîte de dialogue avec le message « Pour extraire, DOMAIN\UserName doit fermer le projet dans sa session ou contacter votre administrateur pour archiver le projet ».

Sub CheckOutOpenEnterpriseProjects()
    Dim openProjects As Projects
    Dim proj As Project
    
    Set openProjects = Application.Projects
    
    On Error Resume Next
    
    For Each proj In openProjects
        If Application.IsCheckedOut(proj.Name) Then
            If proj.Type = pjProjectTypeEnterpriseCheckedOut Then
                Debug.Print "'" & proj.Name & "'" & " is already checked out."
            ElseIf proj.Type = pjProjectTypeNonEnterprise Then
                Debug.Print "'" & proj.Name & "'" & " is not an enterprise project."
            End If
        Else
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Valeur de la propriété

BOOL

Voir aussi

Application Object Project.Type, propriété

Project.CheckoutProject, méthode

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