Rapport de message :*
 

Re: Excel 2010 - Onglet 'Compléments' devenu invisible

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,