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.method 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 pour vous sur un autre ordinateur ou une autre session Project Web App ».

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 en case activée. 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, Project affiche une boîte de dialogue avec le message : « Pour case activée, DOMAIN\UserName doit fermer le projet dans sa session ou contactez 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

Méthode d’archivage d’objetprojet

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.