[VBA-E]Afficher les fichiers excel ouvert et leur onglets dispo pour les ouvrir

Bonjour à tous, voilà

j'espère que je serais assez clair.

Je souhaiterais afficher dans un Userform tous les fichiers Excel ouverts dans une première listbox (ou autres) puis dans une deuxième qui se situerais en face je souhaiterais que s'affiche tous les onglets disponibles du fichier qui serait préalablement sélectionné tout en pouvant revenir à la sélection d'un autre fichier.

j'espère étre assez clair je vous en remercie.

voici un peu de code à étudier.....
ListBox1 .. : listbox Liste des classeurs..
Listbox2 : Listbox liste des feuilles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Option Explicit   Private Sub CommandButton1_Click() Dim wk As Workbook ListBox1.Clear 'Vide les 2 list box ListBox2.Clear For Each wk In Workbooks 'Parcours tous les classeurs ouvert ListBox1.AddItem wk.Name Next   End Sub   Private Sub ListBox1_Click() Dim wk 'As Workbook Dim f As Worksheet On Error Resume Next Set wk = Workbooks(ListBox1.Text) On Error GoTo 0 If wk Is Nothing Then MsgBox "Sélectionnez un classeur" Exit Sub End If ListBox2.Clear For Each f In wk.Worksheets ListBox2.AddItem f.Name Next End Sub

---

pour finir un peu de lecture :
Programmer efficacement avec Excel en VBA

ok impécable je te remercie bcp
c'est exactement ce que je voulais.

je vais pouvoir progresser maitnenant ;)

a plus tard pour d'autres requetes ;)