Ignorer l'absence d'un fichier

Bonsoir,

J'ai une belle macro qui me met en cache (enfin, je pense) un tableau nommé bdd.xlsx.
Ce fichier recense des noms, prénoms et dates de naissance d'enfants. Le fichier qui l'appelle est un fichier de pointage.

Lorsque j'ouvre le fichier de pointage, et que le fichier bdd n'est pas trouvé, j'ai un message d'erreur d'exécution 1004, normal.

Dans la mesure où les utilisateurs du fichier de pointage ne sont pas obligé d'utiliser la bdd, j'aimerais que :
Si la macro ne trouve pas bdd.xlsx
Alors il renvoie simplement un message d'information de type :
"Désolé mais la base de données n'a pas été trouvé."
Sans proposition de débogage... Juste un petit : Ok. Le débogage afficherait du code, non protégé, et l'utilisateur risquerait de faire des bêtises.

Voici le code de la macro en question :

Private Sub Workbook_Open()
Dim derlig As Long
Workbooks.Open ThisWorkbook.Path & "\bdd.xlsx" 'la ligne qui pose problème
With Workbooks("bdd.xlsx").Sheets("Feuil1")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    Sources = .Range("A2:C" & derlig).Value
End With
ActiveWorkbook.Close SaveChanges:=True
With Sheets("Feuille de présence")
    .ListBox1.Visible = False
End With
supervision
End Sub

Merci d'avance pour votre aide ! :)