Liste de choix dans Inpubox

[Lusitagone]

Salut le Forum,

Encore une fois j'ai besoin de vous !!!

Cette fois ci , je souhaiterai inclure la liste des fichiers Excel déjà ouvert dans une Msgbox ou une inputbox.

Est ce possible et comment SVP ?

Merci

Lusitagone

 

[Rai]

Bonjour,

Je ne pense pas qu'il soit possible de le faire dans une input- ou MsgBox.

Par contre, tu peux créer une UserForm et y placer une ComboBox ou une ListBox.
Ensuite, à l'activation de ta UserForm, tu peux affecter la liste des fichiers XL ouverts.

Par ex.
Private Sub UserForm_Activate()
For Each wb In Workbooks
ComboBox1.AddItem wb.Name
Next wb
End Sub

Bonne continuation

Rai

 

[Lusitagone]

Salut Rai

Ok bien reçu, je te remercie.

PS Désolé je suis très pressé...c'était juste pour te remercier.

Slts

Lusitagone

 

[@+Thierry]

Bonjour Lusitagone, Rai, le Forum

Je ne suis pas tout à fait d'accord pour la MsgBox (ou l'InputBox) on peut faire tout à fait simplement ceci :

Sub ListClasseurOuvertDansMsgBox()
Dim WB As Workbook
Dim ListWB As String

For Each WB In Workbooks
ListWB = ListWB & WB.Name & vbCrLf
Next WB

MsgBox "Liste des Fichier Ouverts :" & vbCrLf & ListWB
End Sub

Ou en plus poussé ceci :

Sub ListClasseurOuvertInputBox()
Dim WB As Workbook
Dim ListWB As String, LookingFor As String

    For Each WB In Workbooks
        ListWB = ListWB & WB.Name & vbCrLf
    Next WB

LookingFor = InputBox("Liste des Fichier Ouverts :" & vbCrLf & ListWB, "Saisisser la premiere lettre")

ListWB = ""
    For Each WB In Workbooks
        If UCase(Left(WB.Name, 1)) = UCase(LookingFor) Then
            ListWB = ListWB & WB.Name & vbCrLf
        End If
    Next WB

MsgBox "Liste des Fichier Ouverts commençant par : " & vbTab & LookingFor & vbCrLf & ListWB


End Sub

Bon Appétit
http://perso.monaco377.com/TEygenraam/XLDGifs/LigneSeparator.gif