XL 2016 récupérer nom classeur ouvert

MASSJIPE

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur1.xlsm
    20 KB · Affichages: 3

sousou

XLDnaute Barbatruc
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
 

Discussions similaires