Insérer une image dans un champs Image

Bonsoir tout le monde !

Alors voici mon souci. je suis en train de faire un petit fichier permettant de répertorier sa bibliothèque.

Et je bloque au niveau de la couverture.

En effet, je souhaite qu'en cliquant sur un bouton, cela m'ouvre une fenêtre où je peux aller chercher l'image et quand j'appuie sur ok, elle s'affiche dans le champs image et quand je valide l'userform, elle s'affiche dans une cellule.

Je sèche complètement sur le comment faire :/

Merci d'avance !

327bdd-livres.xlsm (24.07 Ko)

Bonjour

Private Sub insertion_image_Click()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Images", "*.bmp, *.jpg"
        .Show
        Image1.Picture = LoadPicture(.SelectedItems.Item(1))
    End With

End Sub

Merci beaucoup !!!

J'avais déjà essayer ce type de code mais je pense que j'avais dû faire une erreur parce qu'il ne fonctionnait pas du tout !

Merci encore

Bonjour, j'ai trouver ceci dans un forum si cela peut aider.

Rechercher des sujets similaires à "inserer image champs"