ajout commande click droit

[copayo]

Bonjour,

j'ai récupére une macro qui me permet d'afficher une liste avec tous les onglets d'un classeur, que je veux intégrer dans ma liste 'clique bouton droit'

Je voudrais intégrer cette macro dans ma bibilotheque perso pour l'avoir en permanence.

Je l'ai intégré dans mon perso.xls mais avec certains classeurs elle s'execute et avec d'autre pas et c vraiement rageant !!

Je l'ai mise dans Workbook_open :
Private Sub Workbook_Open()
listefeuilles
End Sub

avec :

Sub listefeuilles()
With Application.CommandBars('Cell').Controls.Add
.Caption = '&Liste des Onglets'
.OnAction = 'liste'
.BeginGroup = True
End With
End Sub

et

Sub liste()
Application.CommandBars('Workbook tabs').ShowPopup
End Sub

Auriez vous une solution pour entrer cette option en dur dans la liste 'clqiue droit' ??

Merci par avance aux contributeurs

Message édité par: copayo, à: 16/01/2006 17:49

 

[MichelXld]

bonsoir

dans ce lien tu trouveras la démo de Zon au format .xla

https://www.excel-downloads.com/resources/doublons-macros.217/

Ensuite pour l'installer et l'avoir à disposition dès l'ouverture d'Excel :
DAns Excel , Menu Outils
Macros Complémentaires
Bouton Parcourir,
Sélectionne le fichier 'ClickDroitListeFeuilleZ.xla'
Clique sur OK
Dans la liste des Macros Complémentaires disponibles,
coche 'ClickDroitListeFeuilleZ'
Valide


bonne soirée
MichelXld