Bonjour,
Après création d'un bouton dans le menu contextuel clic droit, je sais lancer l'exécution d'une macro.
Maintenant, je voudrais savoir s'il est possible d'ouvrir un(e?) Userform ?
J'ai essayé plusieurs possibilités, mais sans succès:
Dim BtnC As CommandBarButton
On Error Resume Next
Set BtnC = Application.CommandBars("Cell").Controls("EnregistrementHoraires")
On Error GoTo 0
If BtnC Is Nothing Then
With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
.Caption = "EnregistrementHoraires"
.BeginGroup = True
.FaceId = 4 ' n° de l'icone
.Style = msoButtonIconAndCaption
----------------
.OnAction = "EnregistrementHoraires.show"
----------------
End With
End If
Avec votre aide, merci.
Après création d'un bouton dans le menu contextuel clic droit, je sais lancer l'exécution d'une macro.
Maintenant, je voudrais savoir s'il est possible d'ouvrir un(e?) Userform ?
J'ai essayé plusieurs possibilités, mais sans succès:
Dim BtnC As CommandBarButton
On Error Resume Next
Set BtnC = Application.CommandBars("Cell").Controls("EnregistrementHoraires")
On Error GoTo 0
If BtnC Is Nothing Then
With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
.Caption = "EnregistrementHoraires"
.BeginGroup = True
.FaceId = 4 ' n° de l'icone
.Style = msoButtonIconAndCaption
----------------
.OnAction = "EnregistrementHoraires.show"
----------------
End With
End If
Avec votre aide, merci.