Événement CommandBarButton.Click (Office)

Article
04/07/2023

Cet événement se produit lorsque l'utilisateur clique sur un objet CommandBarButton.

Remarque

L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.

Syntaxe

expression. Click(Ctrl, CancelDefault)

Expression Variable qui représente un objet CommandBarButton .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Ctrl	Requis	CommandBarButton	Représente un bouton CommandBar .
CancelDefault	Requis	Boolean	A la valeur False si le comportement par défaut associé aux contrôles CommandBarButton se produit, sauf s’il est annulé par un autre processus ou complément.

Remarques

L'événement Click est reconnu par l'objet CommandBarButton. Pour renvoyer l'événement Click pour un contrôle CommandBarButton particulier, utilisez le mot clé WithEvents pour déclarer une variable, puis définissez-la sur le contrôle.

Exemple

Cet exemple montre comment créer un bouton de barre de commandes dans le menu Fichier de l’application hôte afin de permettre à l’utilisateur d’enregistrer un classeur sous forme de fichier de valeurs séparées par des virgules. (Cet exemple fonctionne dans toutes les applications, mais le contexte de l’enregistrement d’un CSV est propre à Microsoft Excel.)

Private HostApp As Object 
 
Sub createAndSynch() 
    Dim iIndex As Integer 
    Dim iCount As Integer 
    Dim fBtnExists As Boolean 
     
    Dim obCmdBtn As Object 
    Dim btnSaveAsCSVHandler as new Class1 
          
    Set HostApp = Application 
     
    Dim barHelp As Office.CommandBar 
    Set barHelp = Application.CommandBars("File") 
    fBtnExists = False  
    iCount = barHelp.Controls.Count 
    For iIndex = 1 To iCount 
        If barHelp.Controls(iIndex).Caption = "Save As CSV (Comma Delimited)" Then fBtnExists = True  
     
    Next 
    Dim btnSaveAsCSV As Office.CommandBarButton 
    If fBtnExists Then 
        Set btnSaveAsCSV = barHelp.Controls("Save As CSV (Comma Delimited)") 
    Else 
        Set btnSaveAsCSV = barHelp.Controls.Add(msoControlButton) 
        btnSaveAsCSV.Caption = "Save As CSV (Comma Delimited)" 
    End If 
     
    btnSaveAsCSV.Tag = "btn1" 
    btnSaveAsCSVHandler.SyncButton btnSaveAsCSV 
End Sub

Voir aussi

Membres de l’objet CommandBarButton

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.

Partager via