Bonjour à tous,
Quel type de variable dois-je déclarer afin de pouvoir transmettre le nom de fichier à la fonction Isopen ?
Actuellement je reçois le message:
Type d'argument Byref incompatible
Sub essai()
Dim NomdeFichier
NomdeFichier = "Agenda.xls"
If 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
Quel type de variable dois-je déclarer afin de pouvoir transmettre le nom de fichier à la fonction Isopen ?
Actuellement je reçois le message:
Type d'argument Byref incompatible
Sub essai()
Dim NomdeFichier
NomdeFichier = "Agenda.xls"
If 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