Discussion :

[anubisigfrid]

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.

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anubisigfrid]

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