Méthode Project.CheckoutProject (Project)

Extrait un projet ouvert qui est actuellement en mode lecture seule.

Syntaxe

expression. CheckoutProject

expression Variable qui représente un objet Project .

Valeur renvoyée

Nothing

Remarques

Si le projet actif dans Project Professionnel est en mode lecture seule, la méthode CheckoutProject.extrait le projet afin qu’il soit en mode lecture/écriture pour modification. Si le projet actif est déjà extrait, Project affiche une boîte de dialogue avec le message « Ce projet est déjà extrait sur un autre ordinateur ou Project Web App session ».

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 de case activée le projet. 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, Project affiche une boîte de dialogue avec le message « Pour case activée, DOMAIN\UserName doit fermer le projet dans sa session ou contacter votre administrateur pour case activée dans 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
            ' Check out the project whether it is active or not.
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Voir aussi

Project ObjectCheckin, méthode

Application.IsCheckedOutApplication.ProjectCheckOut

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.