[VBA] Test avec message box si fichier externe non ouvert

Dim Classeur As Workbook 
Dim Ouvert As Boolean 

Ouvert = False 
For Each Classeur In Workbooks 
    If Classeur.Name = "Extract_mensuel_indicateurs_AQZS05.xls" Then 
        Ouvert = True 
        Exit For 
    End If 
Next Classeur 
'si ouvert est toujours false après la boucle c'est que ton classeur est fermé alors on sort de la procédure 
If Ouvert = False Then Exit Sub
'ou avec message à l'utilisateur :
'If Ouvert = False Then 
    'Msgbox "fichier fermé"
    'Exit Sub
'End If

' On commence par SGBD et on vérifie que notre ficher extract brut est ouvert pour l'entitée SGBD  
    Dim Wk As Workbook  
    x = "Extract_mensuel_indicateurs_AQZS05"  
      
    Windows(Windows_Extract_Mensuel_SGBD).Activate  
        
        On Error Resume Next  
        Set Wk = Workbooks(x & ".xls")  
        If Err <> 0 Then  
        Message = "Le fichier Extract_mensuel_indicateurs_AQZS05.xls n'est pas ouvert !" & Chr(13) _  
        & "  " & Chr(13) & "                                        Merci de l'ouvrir."                                             
        MsgBox Message, vbExclamation + vbCritical, "Erreur de fichier !"  
        Else  
            Sheets(Sheet_Extract_SGBD).Range("B5").Select  
        End If