Logique Classeur_Ouvert

[Bernard_XLD]

Bonjour

Voici une fonction testant si un classeur est déjà ouvert.
Fonctionne pour Vba et formule

Cordialement, @+

Function Classeur_Ouvert(NomClasseur$) As Boolean
    'Fonction Classeur_Ouvert V1.3 By Bernard_XLD, Excel toutes versions (non testé sur Mac)
    'renvoie Vrai si le classeur est ouvert
    On Error Resume Next
    Application.Volatile
    Classeur_Ouvert = Not Workbooks(NomClasseur) Is Nothing
End Function

 

[Nairolf]

Bernard_XLD,

J'utilise aussi un bout de code pour faire la même action afin d'ouvrir un fichier via un bouton s'il n'est pas déjà ouvert, mais il est bien moins élégant (je boucle sur les classeurs ouverts avant de faire le contrôle via un if).