Méthode 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 est déjà extrait, Project affiche une boîte de dialogue avec le message d’erreur « Ce projet est déjà extrait sur un autre ordinateur ou Project Web App session ». Si le projet est extrait par un autre utilisateur, le message d’erreur est « Pour case activée, DOMAIN\UserName doit fermer le projet dans sa session ou contacter votre administrateur pour case activée dans le projet ».

Exemple

L’exemple suivant tente de 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

Application ObjectProject.Checkin, méthode

IsCheckedOut, 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.