Activer un ruban personnalisé

[Iznogood1]

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]

bonjour,

'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]

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]

@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.