Salut Véronique, Mjp, le Forum,
Je suppose que tu parles de ce fil de discution => Lien supprimé
Fahd te conseillait de créer une commande de plus dans tes menus.
Pour ce faire, oui il faut écrire les codes indiqués dans le Private Module de "ThisWorkBook" :
Private Sub Workbook_Open()
Set menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, temporary:=True)
menu.Caption = "Retour"
menu.Tag = "Retour"
With menu.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "FeuillePrincipale"
.Style = msoButtonCaption
.OnAction = "PrincipaleFeuilleMethod"
End With
Et ceci dans un module standard :
Sub PrincipaleFeuilleMethod()
ActiveWorkbook.Worksheets("MaFeuillePrincipale").Activate
End Sub
Comme dans l'exemple ci-joint.
Bonne Soirée
@+Thierry
PS 1 as tu vus aussi les autres méthodes dans ce fil ?
PS 2 il est parfois plus clair de rester dans le même fil..