Private Sub Workbook_Open()
Dim MenuPerso As CommandBarPopup
Dim NewMenuItem As CommandBarButton
Dim complement As Boolean
'vérifie que le fichier est installé et non ouvert comme un fichier ordinaire
'On Error Resume Next
'complement = AddIns("MacrosStore").Installed
'If Err.Number > 0 Then
' MsgBox "Ce fichier est une macro complémentaire à installer via Outils>Macros complémentaire", vbCritical
'End If
'ici on vérifie que le menu "Perso" existe ou pas afin d'éviter de créer un doublon
On Error Resume Next
test = Application.CommandBars(1).Controls("perso").Caption
If Err.Number > 0 Then
Set MenuPerso = Application.CommandBars(1).Controls.Add(Type:=10, Temporary:=True)
MenuPerso.Caption = "Perso"
Else: Set MenuPerso = Application.CommandBars(1).Controls("perso")
End If
Set NewMenuItem = MenuPerso.Controls.Add(Type:=1, Temporary:=True)
With NewMenuItem
.Caption = "MacrosStore"
.OnAction = "ImportNouvellesRefs"
.FaceId = 1987
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Application.CommandBars(1).Controls("perso").Controls.Count = 1 Then
Application.CommandBars(1).Controls("perso").Delete
Else: Application.CommandBars(1).Controls("perso").Controls("MacrosStore").Delete
End If
On Error GoTo 0
End Sub