Bonjour,

Voila il y a quelques temps, j'avais eu de l'aide concernant une commande afin d'activer/ desactiver le ruban dans mon fichier xlsm

Jusque là aucun soucis il fonctionnait nickel. mais voila j'ai changé le .xlsm d'endroit (je l'ai mis sur un petit serveur-data) et depuis plus moyen d'activer la fonction
toutes les autres commandes fonctionnent sauf celle-ci

Si quelqu'un aurait une explication, ou une aide ce serait génial
voici le code
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
Option Explicit
Dim Ruban As IRibbonUI
Dim Voir_Masque As Boolean
 
 
Sub MonRuban_OnLoad(ribbon As IRibbonUI)
    Set Ruban = ribbon
End Sub
Sub MonRuban_OnAction_Press(control As IRibbonControl, pressed As Boolean)
    Voir_Masque = pressed
    Ruban.Invalidate
End Sub
Sub MonRuban_GetPressed(control As IRibbonControl, ByRef returnValue)
    returnValue = Voir_Masque
End Sub
Sub MonRuban_GetVisible(control As IRibbonControl, ByRef visible)
    visible = Voir_Masque
End Sub