VBA : condition si fichier inexistant

Private Sub Form_Current()
Dim fName As String
Dim c As String
' on récupère le chemin du répertoire de la base de données dans la
'variable c
c = Application.CurrentProject.Path
'On indique que la variable fName correspond à une image de type jpg
'dans le répertoire de la base de donnée, portant le même nom que le
' champ "num" (qui est la clé de la table
fName = (c & "\Images\" & [num] & ".jpg")
'On indique que si la clé a la valeur par défaut, c'est à dire
' que l'enregistrement n'a pas encore été rempli, le formulaire
'doit afficher l'image "logo.gif" par défaut
If num.Value = "saisir nom" Then
fName = (c & "\Images\logo.gif")
End If
'On indique enfin qu'en cas d'erreur, c'est à dire si la macro
'ne trouve pas d'image à afficher, on doit aller au programme
'intitulé erreur, un peu plus bas
On Error GoTo erreur
'on spécifie que l'image dont le cadre est appellé "doll" dans le
' prend la valeur de fName et doit être affichée
[doll].Picture = fName
[doll].Visible = True



Exit Sub

'mini-programme erreur : en cas d'erreur d'affichage d'image, la
'macro doit afficher l'image logo.gif
erreur:

fName = (c & "\Images\logo.gif")
[doll].Picture = fName
[doll].Visible = True
End Sub