Titre du sujet : Re: Excel 2010 - Onglet 'Compléments' devenu invisible par myDearFriend! le 22/04/2011 17:55:16
Bonjour yaka,
A tout hasard et sans grande conviction, fais faire un test à ton utilisateur avec ce code modifié :
Sub creerBoutonMenu()
Dim BTmenu As CommandBarButton
Dim nomBTmenu As String, NomBar As String, test As String
NomBar = IIf(Val(Application.Version) > 11, "Worksheet Menu bar", "Standard")
nomBTmenu = VBA.Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
On Error Resume Next
test = Application.CommandBars(NomBar).Controls(nomBTmenu).Caption
If Err.Number > 0 Then 'si le bouton n'existe pas
Set BTmenu = Application.CommandBars(NomBar).Controls.Add(Type:=1, Temporary:=True)
With BTmenu
.BeginGroup = True
.Caption = nomBTmenu
.FaceId = 1106
.OnAction = "AfficherRH"
.TooltipText = "Reporting des Heures"
.Style = msoButtonIconAndCaption
End With
End If
End Sub
Par ailleurs, je te remercie d'utiliser l'outil de l'éditeur de post réservé pour l'insertion du code VBA (ou une formule de calcul) : voir ICI.
Cordialement,
|