Erreur : "L'indice n'appartient pas à la sélection"

Bonjour,
j'ai une macro qui dois ouvrir un fichier excel pour tranférer ses données dans des fichiers texte.
La fonction qui ouvre le fichier est la suivant :

Function OPEN_FILE_EXCEL(ByVal NAME As String) As Integer
'cette fonction ouvre le fichier excel dont le nom est passé en paramètre
On Error GoTo GestErr
    Set WB = Application.Workbooks.Open(NAME)
    
GestErr:
If Err.Number <> 0 Then
    MsgBox "Impossible d'ouvrir le fichier " & NAME & " " & Err.Description
    OPEN_FILE_EXCEL = Err.Number
    Exit Function
End If
End Function

L'erreur qui s'affiche est la suivante :
"Impossible d'ouvrir le fichier "..............." L'indice n'appartient pas à la sélection.

Je travaille sur Excel 2007.

Quelqu'un pourrait m'aider?
Merci d'avance.