Comment insérer une image se trouvant en dehors d'une base

Private Sub btnAjout_Click()
    Dim dialogueFichier As Object
    Dim mon As String
    
    Set dialogueFichier = Application.FileDialog(3)
    dialogueFichier.AllowMultiSelect = False
    dialogueFichier.Filters.Add "Images", "*. jpeg;*.jpg,1"
    dialogueFichier.InitialFileName = CurrentProject.Path & "\Photos"
    dialogueFichier.show
    
End Sub

Private Sub Form_Current()
    Photo_AfterUpdate
End Sub

Private Sub Photo_AfterUpdate()
    Dim CheminCompletFichier As String
    On Error Resume Next
    If IsNull(Me!Photo) Or Me!Photo = "" Then
    Me!ImgApercu.Picture = ""
    Else
    CheminCompletFichier = CurrentProject.Path & "\Photos\" & Me.Photo
    Me.Photo = CheminCompletFichier
    End If
    Me!ImgApercu.Picture = IIf(CheminCompletFichier = "", "", CheminCompletFichier)
    
End Sub

 Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"

Private Sub Form_Current()
If Len(Me!photo_1) > 0 Then ' si la photo n'est pas définie, on affiche la photo blank.jpg
On Error GoTo erreur_1
    Me!imgphoto_1.Picture = Me!photo_1
    DisplayPhoto_1 ' Traitement en fonction de la taille de l'image
Else
    Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
End If

If Len(Me!photo_2) > 0 Then ' si la photo n'est pas définie, on affiche la photo blank.jpg
On Error GoTo erreur_1
    Me!imgphoto_2.Picture = Me!photo_2
    DisplayPhoto_2 ' Traitement en fonction de la taille de l'image
Else
    Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
End If


Exit Sub
erreur_1:
Select Case Err.Number
    Case 2114        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_1 = vbNullString
        
        Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_2 = vbNullString
    
    Case 2220        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me!photo_1, vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_1 = vbNullString
        
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me!photo_2, vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_2 = vbNullString
    Case Else        ' tout autre cas d'erreur
'        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
End Select
Err.Clear
End Sub

Private Sub btnAjout_Click()
    Dim dialogueFichier As Object
    Dim monFichier As String
    
    Set dialogueFichier = Application.FileDialog(3)
    dialogueFichier.allowmultiselect = False
    dialogueFichier.filters.Add "Images", "*.jpg; *.jpeg", 1
    dialogueFichier.initialfilename = CurrentProject.Path & "\Images"
    dialogueFichier.show
        If dialogueFichier.selectedItems.Count = 0 Then
            MsgBox ("Aucune Photo selectionnée")
        Else
            monFichier = Trim(dialogueFichier.selectedItems(1))
            monFichier = Right(monFichier, Len(monFichier) - InStrRev(monFichier, "\"))
        End If
        Me.cmdPhoto = monFichier
        Form_Current
End Sub

Private Sub btnEffacer_Click()
    Me.imgApercu.Picture = ""
    Me.cmdPhoto = ""
    Form_Current
    
End Sub

Private Sub cmdPhoto_AfterUpdate()
    Dim cheminComplet As String
    On Error Resume Next
    If IsNull(Me.cmdPhoto) Or Me.cmdPhoto = "" Then
        Me.imgApercu.Picture = ""
    Else
        cheminComplet = CurrentProject.Path & "\Images\" & Me.cmdPhoto
    End If
    Me.imgApercu.Picture = IIf(cheminComplet = "", "", cheminComplet)

End Sub

Private Sub Form_Current()
    cmdPhoto_AfterUpdate
    If Len(Me.Nom) > 0 Then
        Me.Caption = " Deatil Client : " & Me.Nom & " " & Me.Prenom
    Else
        Me.Caption = " Saisie d'un nouveau Client "
    End If
End Sub