XL 2016 récupérer nom classeur ouvert

[MASSJIPE]

Bonjour le forum
Est il possible de récupérer les noms quant les classeurs ouvert Ex T2 et T10 sont ouvert dans un label d'un userform, si le classeur est ouvert le label est vert si non rouge
D'avance merci

 

[sousou]

Bonjour
Tu peux essayer queque chose comme ceci
Private Sub CommandButton1_Click()
c = 0
UserForm1.Label1.Caption = "t2.xls est fermé"
UserForm1.Label2.Caption = "t10.xls est fermé"""

For Each cl In Workbooks
If cl.Name = "t2.xls" Then UserForm1.Label1.Caption = cl.Name & " est ouvert"
If cl.Name = "t10.xls" Then UserForm1.Label2.Caption = cl.Name & " est ouvert"
Next
UserForm1.Show
End Sub