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 : Sélectionner tout - Visualiser dans une fenêtre à part
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