Activer un ruban personnalisé

Iznogood1 · 16 Septembre 2016

Bonjour,

ci-joint un fichier avec un Ruban personnalisé que je souhaite activer à l'ouverture du fichier.

Je cherche le code (à partir d'XL 2010 ; je ne suis pas intéressé par les solutions basées sur SenkKeys).

J'ai bien essayé .ActivateTab ("Demo_Home"), mais sans succès.

Une idée ?

Merci

bof · 18 Septembre 2016

bonjour,

Code:

'Refresh ribbon
Public Function refreshRibbon(Optional hidden As Boolean = False)
  If Not objRibbon Is Nothing Then
      objRibbon.ActivateTab "Demo"
      objRibbon.Invalidate
  End If
End Function

A+

STephane · 18 Septembre 2016

Bonjour,

Est-ce que tu as réussi ?
De mon côté, intéressé aussi, j'ai trouvé cette méthode, qui fonctionne (et emploie un peu trop de chose à mon goût).
https://forums.techguy.org/threads/...-macro-when-a-ribbon-tab-is-selected.1125906/

Iznogood1 · 18 Septembre 2016

@bof,
Merci !
Pourquoi je mettais "Demo_Home" au lieu de "Demo" ???

@STephane,
merci pour le lien.
Il semble fort intéressant, j'étudierais ce fil à tête reposée.

Activer un ruban personnalisé

Iznogood1

XLDnaute Impliqué

Pièces jointes

bof

XLDnaute Occasionnel

STephane

XLDnaute Occasionnel

Pièces jointes

Iznogood1

XLDnaute Impliqué

Discussions similaires