<p><strong>En VBA :</strong></p>
<pre data-code-wrap="vba"><code class="lang-vba">Function ClasseurOuvert(nomFichier As String) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(nomFichier)
On Error GoTo 0
ClasseurOuvert = Not wb Is Nothing
End Function
</code></pre>
<p>Utilisation :</p>
<pre data-code-wrap="vba"><code class="lang-vba">If ClasseurOuvert("fichier.xlsx") Then
MsgBox "Le classeur est déjà ouvert"
End If
</code></pre>
