COMBOBOX

Bonjour,

j'ais fais 2 userforms dont enregistrement et consultation

dans consultation, j'aimerais que quand je sélection le code d'un membre, le reste des informations rempli automatiquement
mais tous remplis parfaitement sauf
l'image

voici d'abord le code que j'ais mis dans l'userform enregistrement :

Private Sub CommandButton2_Click()
Dim fichier As String

image_path = Application.GetOpenFilename(FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", Title:="Choisir image", MultiSelect:=False)
If image_path <> False Then
Image1.Picture = LoadPicture(image_path)
Image1.Visible = True
Var = TextBox1.Text
savepicture Image1.Picture, ThisWorkbook.Path & "\" & "MEMBRE " & Var & ".jpg"
End If
End Sub


voici aussi le code que j'ais mis dans l'userform consultation:


If Dir(ThisWorkbook.Path & "MEMBRE " & "\" & ComboBox1 & ".jpg") = "" Then
Me.Image1.Picture = LoadPicture("")
Else
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "MEMBRE " & "\" & ComboBox1 & ".jpg")
End If

End Sub



mais l'image n’affiche pas dans l'userform consultation