Application.ProjectCheckOut (Project)

Extrait un projet ouvert s’il s’agit du projet actif.

Syntaxe

expression. ProjectCheckOut (Nom)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Facultatif	String	Nom du projet

Valeur renvoyée

Boolean

Remarques

Un projet ouvert doit être actif pour que la méthode ProjectCheckOut fonctionne. Si le projet vous a déjà été attribué, Project affiche une boîte de dialogue avec le message d’erreur suivant : « Ce projet a déjà été consulté sur un autre ordinateur ou une autre session Project Web App. » Si le projet est extrait par un autre utilisateur, le message d’erreur est « Pour une case activée, DOMAIN\UserName doit fermer le projet dans sa session ou contacter votre administrateur pour effectuer une case activée ».

Exemple

L’exemple suivant tente d’extraire tous les case activée tous les projets ouverts en lecture seule.

Sub TestProjectCheckOut()
    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
            ' Check out the project only if it is the active project.
            proj.Activate
            Application.ProjectCheckOut
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Voir aussi

Objet d’applicationMéthode Project.Checkin

Propriété IsCheckedOutMéthode Project.CheckoutProject

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.