petit soucis avec macro VBA qui ne s'applique plus
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:
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 |
