XL 2021 Faire mieux mon code

[Usine à gaz]

Bonjour à toutes et à tous

Pour tester si un classeur est ouvert, j'ai un code :
Je dois tester 3 classeurs :

'SELECTION ICHIER RDdVs
    On Error Resume Next
    If Err <> 0 Then
        Windows("isitelImmobRdV ImenNF.xlsm").Activate
        MsgBox ("isitelImmobRdV ImenNF.xlsm OK!")
        Else
        MsgBox "isitelImmobRdV ImenNF.xlsm n'est pas ouvert"
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
    On Error Resume Next
    If Err <> 0 Then
        Windows("isitelImmobRdV SondaNF.xlsm").Activate
        MsgBox ("isitelImmobRdV SondaNF.xlsm OK!")
        Else
        MsgBox "isitelImmobRdV SondaNF.xlsm n'est pas ouvert"
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
    On Error Resume Next
    If Err <> 0 Then
        Windows("isitelImmobRdV StephanieNF.xlsm").Activate
        MsgBox ("isitelImmobRdV StephanieNF.xlsm OK!")
        Else
        MsgBox "isitelImmobRdV StephanieNF.xlsm n'est pas ouvert"
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Exit Sub
    End If

Objectif
Je voudrais tester sur le :
- 1er classeur : Si le classeur est ouvert, le test s'arrête : avec msgbox : Ouvert, et la suite de ma macro s'exécute...
- 2e. classeur : Si le classeur est ouvert, le test s'arrête : avec msgbox : Ouvert, et la suite de ma macro s'exécute...
- 3e. classeur : Si le classeur est ouvert, le test s'arrête : avec msgbox : Ouvert, et la suite de ma macro s'exécute...
- Si aucun classeur ouvert : Application.EnableEvents = True: Application.ScreenUpdating = True : Exit Sub

Je ne vois pas trop comment faire . Je cherche.....
Pourriez-vous m'aider ?
Grand merci à toutes et à tous,
Si nécessaire, je ferai un classeur test

 

[Usine à gaz]

re
bonjour à tous
Ou lah !!! déposer le bilan ça pu ça ?

Ok je sorts

Sors vilain