Option Explicit
Public u As Byte
Public CalcTaskID
Public CharmapTaskID
Public Const MyCommandBarName As String = "Carnet d'adresses ..."
Sub DeleteMyCommandBar()
' Efface la barre d'outils MyCommandBarName
On Error Resume Next
Application.CommandBars(MyCommandBarName).Delete
On Error GoTo 0
End Sub
Sub CreateMyCommandBar()
' Création de la barre d'outils personnalisée MyCommandBarName
Dim cb As CommandBar, cbb As CommandBarButton
Application.ScreenUpdating = False
DeleteMyCommandBar ' au cas où celle-ci existe déjà
Set cb = Application.CommandBars.Add(MyCommandBarName, msoBarFloating, False, True)
AddMenuToCommandBar cb, True
End Sub