[VBA] Comment tester si un classeur est déjà ouvert ?

Voici une fonction personnalisée pour réaliser ce test simplement :

DANS UN MODULE DE CODE STANDARD
Function FichOuvert(F As String) As Boolean 
'myDearFriend!  -  www.mdf-xlpages.com 
    On Error Resume Next 
    FichOuvert = Not Workbooks(F) Is Nothing 
End Function

Exemple d'utilisation :

Sub Test() 
Dim Fichier As String 
 
    Fichier = "MonClasseur.xls" 
     
    If FichOuvert(Fichier) Then 
        MsgBox "Le fichier " & Fichier & " est ouvert." 
    Else 
        MsgBox "Le fichier " & Fichier & " n'est pas ouvert." 
    End If 
End Sub

Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=39