Formulaire saisie personnalisé avec photos

Bonjour à Tous ,

et merci pour vos réponses et le temps que vous me consacrerez ; )

voici ma question :

je crée une base de données articles ( ref , nom , etc ) dans un userform , et j'ai ajouté la possibilité de télécharger un photo dans l'userform : Mais je voudrais que cette photo soit enregistrée comme une donnée de la fiche article ( donc dans une cellule ...avec le nom , etc... )

GRAND MERCI

voici le code pour ouvrir la photo de l'article ( elle fonctionne )

Private Sub Image1_Click()

Dim strFltr As String, strTtl As String, strFileName As String

Dim iFltrIndx As Integer

Dim bMltiSlct As Boolean

strFltr = "Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp"

iFltrIndx = 2

strTtl = "Select a File"

bMltiSlct = False

ChDrive "C"

ChDir "C:\"

strFileName = Application.GetOpenFilename(strFltr, iFltrIndx, strTtl, , bMltiSlct)

On Error Resume Next

If strFileName <> "False" Then

Me.Image1.Picture = LoadPicture(strFileName)

Me.Repaint

Me.Label1.Caption = "Picture Loaded"

Else

MsgBox "Pas d'image sélectionnez!"

End If

On Error GoTo 0

End If

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub