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