Choisir la feuille à l'ouverture

Bonjour Flavien,

Tu ajoutes un UserForm, avec un ListBox et un CommandButton, tu y colles
le code :

Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next
Me.ListBox1.ListIndex = 0
End Sub

Private Sub CommandButton1_Click()
With Me.ListBox1
ThisWorkbook.Sheets(.List(.ListIndex)).Select
End With
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

et

Private Sub Workbook_Open()
UserForm1.Show
End Sub

dans le code de ThisWorkboook

Voila, c'est très simple :

j'aimerais qu'a l'ouverture d'un fichier .xls un menu apparaissent et me
demande sur quel feuille du classeur il doit s'ouvrir...

J'ai déja fait des essai en mettant :

Private Sub Workbook_open()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub

Mais il s'ouvre par défaut sur la dernière feuille consulter et on est pas
obligé de répondre au pop up :-(

Il faut que l'utilisateur soit obligé de choisir une feuille au démarrage (
par le biais d'un menu avec toutes les feuilles du classeur)

Merci d'avance !

--
Cordialement,

Jacques.