Ruban Excel 2013

Version imprimable

Ruban Excel 2013

Bonjour à toutes et à tous,

J’ai créé un onglet perso sur le ruban mais je n’arrive pas à ouvrir Excel sur cet onglet.
Merci par avance pour la réponse.
Ci-dessous le code du Module Callback

Michel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Public gobjRibbon As IRibbonUI
------------------------------------------------------------------------------------------------------------------
Public Function OnRibbonLoad(Ribbon As IRibbonUI) 'Déclaration du Ruban
    Set gobjRibbon = Ribbon
End Function
------------------------------------------------------------------------------------------------------------------
Public Function Ribbon_Refresh() 'Rafraîchissement du Ruban
    If Not (gobjRibbon Is Nothing) Then
        gobjRibbon.Invalidate
    End If
End Function
------------------------------------------------------------------------------------------------------------------
Public Function Ribbon_RefreshControl(ControlName As String) 'Rafraîchissement d'un Contrôle du Ruban
    If Not (gobjRibbon Is Nothing) Then
        gobjRibbon.InvalidateControl ControlName
    End If
End Function
Sub Ribbon_OnAction(control As IRibbonControl)
On Error GoTo Erreur:
    Select Case control.id
        Case "Déprotection"
            déprotège
        Case "Protection"
                Protège
        Case "Enregistrement"
                Enregistrement
        Case "Graphique"
                Graphiques
        Case "Graphique2"
                GraphiquesServices
        Case "SortieSauve"
                 Quitter
    End Select
Exit_Erreur:
    Exit Sub
Erreur:
    MsgBox Err.Description
    Resume Exit_Erreur
End Sub

16/12/2014, 14h43
Michel DEMANET

Bonjour,

En regardant le fichier créé avec Custom ui editor avec un peu plus d'attention, j'ai retiré l'espace qui se trouvais après TabHomme et mon onglet est apparu tout de suite au démarrage d"Excel

<tab id ="Enquete" insertBeforeMso ="TabHome " label ="ENQUÊTE" visible ="true"> Avant
<tab id ="Enquete" insertBeforeMso ="TabHome" label ="ENQUÊTE" visible ="true"> Maintenant

Et maintenant j'essaie de le mettre après l'onglet Dévelopeur, il se trouve bien à la place demandé mais Excel ne démarre plus dessus

Y a t il une solution ?

Merci encore pour le coup de main que les bénévoles nous donnent

Michel
19/12/2014, 03h49
kiki29

Salut, sous 2007 il fallait faire ceci.

Salut,

Essaie comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub OnRibbonLoad(Ribbon As IRibbonUI) 'Déclaration du Ruban
    Set gobjRibbon = Ribbon
    Application.OnTime Now + DateTime.TimeSerial(0, 0, 1), "OnEnqueteTabActivate"
End Sub
 
Private Sub OnEnqueteTabActivate()
    If Not (gobjRibbon Is Nothing) Then
        ' "Enquete" est le ID (IRibbonControl.ID) de l'onglet à activer.
        gobjRibbon.ActivateTab "Enquete"
    End If
End Sub

Parce qu'effectivement, la procédure de chargement du Ruban doit être compléter entièrement sans aucun arrêt pour que l'onglet s'affiche.