Aide Code VBA

Bonjour le forum
J'ai un USF,où je souhaiterai inclure des photos dans la base de donnée
Pour la recherche des photos j'ai ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub B_CommandButton1_Click()
 
 
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
 
ThePath = "C:\Users\DANIEL\Pictures" 'a ajuster au répertoire contenant tes images
 
UserDir = CurDir
MsgBox UserDir
ChDir ThePath
 
TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg")
If TheFile = False Then ChDir UserDir: Exit Sub
 
With Me.Image1
.Picture = LoadPicture(TheFile)
.PictureSizeMode = fmPictureSizeModeZoom
End With
End Sub

Jusque là tout se passe bien
Pour la validation des données, j'ai ces codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub SpinButton1_Change()
Dim x As Long
If SpinButton1 = dL + 1 Then
    Message = "Nouvel Enregistrement"
    Calendar1 = Date
Else
    Message = "Enregistrement N° " & SpinButton1 - 5
End If
x = SpinButton1.Value
 
With Sheets("Feuil3")
    EntréeSortie = .Cells(x, 1)
    Calendar1 = .Cells(x, 2)
    DésignationArticle = .Cells(x, 3)
 
    If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = ""
 
 
End WithPrivate Sub B_Validation_Click()
Dim y As Long
y = SpinButton1
 
With Sheets("Feuil3")
  .Cells(y, 1) = EntréeSortie.Value
  .Cells(y, 2) = CDate(Calendar1)
  .Cells(y, 3) = DésignationArticle
 
  Select Case EntréeSortie.ListIndex
    Case 0
      .Cells(y, 4) = Quantité.Value
    Case 1
      .Cells(y, 4) = 0 '- Quantité.Value
  End Select
End With
 
IniUsf '<---------
 
 
End Sub

Je souhaiterai faire apparaitre les photos dans la base de donnée et je n'arrive pas à trouver le code VBA pour enregistrer la photo
Dois je joindre le fichier?
En vous remerciant de votre aide
Cordialement
Dan