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
Partager