Propriété Project.Type (Project)

Obtient le type d’un projet. PjProjectType en lecture seule.

Syntaxe

expression. Type

Expression Variable qui représente un objet Project .

Remarques

La propriété Type peut être l’une des constantes PjProjectType.

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

Voir aussi

Project ObjectPjProjectType, énumération

CheckoutProject, méthodeApplication.IsCheckedOut, propriété

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.