Lire en anglais

Partager via


Méthode Application.IsCommandEnabled (Project)

Indique si la commande spécifiée est activée.

Syntaxe

expression. IsCommandEnabled( _CommandName_ )

Expression Expression qui renvoie un objet Application .

Parameters

Nom Requis/Facultatif Type de données Description
CommandName Requis String Nom d’une commande valide.

Valeur renvoyée

Long

Remarques

Les commandes valides correspondent aux noms de méthodes VBA de la bibliothèque MSProject. La valeur de retour peut être l’une des constantes PjIsCommandEnabled .

Exemple

Lorsque le mode Planificateur d’équipe n’est pas visible, la macro TestCommandEnabled renvoie les résultats suivants :

La méthode FileOpen est disponible dans la plupart des cas. La méthode IsCommandEnabled n’est pas définie car elle n’est pas incluse dans la liste interne des méthodes. La méthode ResetTPStyle est désactivée car elle est disponible uniquement lorsque le Planificateur d’équipe est ouvert.

Sub TestCommandEnabled() 
 Dim commandArray(3) As String 
 Dim isEnabled As String 
 Dim i As Integer 
 
 commandArray(1) = "FileOpen" 
 commandArray(2) = "IsCommandEnabled" 
 commandArray(3) = "ResetTPStyle" 
 
 For i = 1 To 3 
 isEnabled = GetCommandEnabled(commandArray(i)) 
 Debug.Print commandArray(i) & " is " & isEnabled 
 Next i 
End Sub 
 
Function GetCommandEnabled(command As String) As String 
 Dim isEnabled As Long 
 Dim enabledMsg As String 
 Dim result As String 
 
 isEnabled = Application.IsCommandEnabled(command) 
 
 Select Case isEnabled 
 Case PjIsCommandEnabled.pjCommandDisabled 
 result = "disabled." 
 Case PjIsCommandEnabled.pjCommandEnabled 
 result = "enabled." 
 Case PjIsCommandEnabled.pjCommandUndefined 
 result = "undefined." 
 Case Else 
 result = "unknown result." 
 End Select 
 
 GetCommandEnabled = result 
End Function

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.