Function GetWorkBook(Chemin As String, nomfichier As String) As Workbook
On Error Resume Next
Set GetWorkBook = Workbooks(nomfichier)
If Err <> 0 Then
If Right(Trim(Chemin), 1) <> "\" Then Chemin = Chemin & "\"
Set GetWorkBook = Workbooks.Open(Chemin & nomfichier)
End If
On Error GoTo 0
End Function
'Utilisation de la fonction
Sub LeProgramme()
Dim wk As Workbook
Set wk = GetWorkBook("D:\LBT\annexes", "listes.xlsm")
If Not wk Is Nothing Then
'le classeur a été trouvé, je continue le programme
Else
'le classeur n'a pas été trouvé:
' soit j'averti l'utilisateur
' soit je ne fais rien
End If
End Sub