Faire apparaitre liste déroulante fichiers ouverts

S

steplof

Guest
Salut
je cherche un moyen pour faire apparaitre une liste déroulante contenant les noms des fichiers ouverts.
Après m'être lancé dans une infructueuse (pour l'instant j'espère) tentative d'adapter le selectFeuille de l'un de vous,
je me suis rendu compte que la fenêtre qui apparait lorsqu'il y a plus de 8? fichiers ouverts me conviendrait parfaitement d'où une question simple
Peut on appeler son ouverture systématique par code?

Merci pour vos propositions.

Steplof
 
S

STéphane

Guest
bonjour

j'ai tenté quelquechose et cela a l'air de marcher

dessiner un combobox avec la barre d'outils commandes/contrôles et mettre dans la feuille de code qui lui est rattaché un code du genre suivant :


Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
[A1].Select
For Each wds In Windows
If wds.Caption = ComboBox1.Text Then
ActiveWindow.WindowState = xlMinimized
wds.WindowState = xlMaximized
End If
'Workbooks(ComboBox1.Text).Activate
Next wds
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For Each wb In Workbooks
If Windows(wb.Name).Visible Then ComboBox1.AddItem wb.Name
Next wb
End Sub

HTH

Bye
Stéphane
 
S

steplof

Guest
Merci pour ton aide, j'ai finalement réussi à faire exactement ce que je voulais (que l'utilisateur voit les classeurs ouverts, qu'en en sélectionnant un dans la liste toutes les feuilles du classeur soient listées qu'il puisse la sélectionner et en cliquant sur OK l'activer), en adaptant le feuilclas de Fred Lhommé.

Encore merci à vous tous pour vos réponses présentes et passées et la mise à la disposition de tous de votre savoir-faire
 

Statistiques des forums

Discussions
299 952
Messages
1 980 337
Membres
207 060
dernier inscrit
Maggie2401