Type d'argument Byref incompatible

Dim NomdeFichier As String

Sub essai()
  Dim NomdeFichier
  NomdeFichier = "Recherche3D.xls"
  If Not IsOpen(NomdeFichier) Then MsgBox NomdeFichier & " fermé"
End Sub

Function IsOpen(Classeur) As Boolean
 On Error Resume Next
 IsOpen = Not Workbooks(Classeur) Is Nothing
 Err.Clear
End Function

Option Explicit
Sub essai()
Dim NomdeFichier As String
NomdeFichier = "classeur1"
If Not IsOpen(NomdeFichier) Then MsgBox NomdeFichier & " fermé"
End Sub
Function IsOpen(Classeur$) As Boolean
On Error Resume Next
IsOpen = Not Workbooks(Classeur) Is Nothing
Err.Clear
End Function