Bonjour,
Dans mon UserForm1, je suis parvenu à charger une photo et à l'afficher sous le bouton.
Je cherche désormais à enregistrer cette photo précédemment sélectionner suite au clic sur le bouton "nouveau" dans ma cellule en G (voir tableau).
J'obtiens une erreur sur cette ligne :
Range("F" & L).Value = Image1
Pour cela je suppose que l'image doit être liée au fichier excel.
Le code actuel est le suivant:
Private Sub CommandButton1_Click()
'Pour le bouton Nouveau contact
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = DTPicker1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("E" & L).Value = TextBox4
Range("F" & L).Value = Image1
Range("G" & L).Value = Image2
End If
End Sub
Merci d'avance pour votre aide, je peux bien volontiers fournir plus d'informations