XL 2016 Ajouter une photo dans mes enregistrements

[pat12]

Bonjour,
Je suis en train de réalisé une base de donnée qui utilise une Userform pour enregistrer les données dans une feuille et cela fonctionne mais,
je n'arrive pas réalisé une fonction pour ajouter une photo.
(j'ai réalisé un zone de texte pour l'emplacement photo dans l'UserForme)
Je joint ma basse pour plus de facilité dans la compréhension.
Merci

 

[BOISGONTIER]

La photo est en commentaire dans la colonne 1

  '----- photo en commentaire colonne 1
  With Range(nomtableau).Item(enreg, 1)
    .ClearComments
    If Me.Photo <> "" Then
      If Dir(Me.Photo) <> "" Then
        .AddComment
        .Comment.Shape.Fill.UserPicture Me.Photo
        .Comment.Shape.Height = 100
        .Comment.Shape.Width = 100
        .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
      End If
    End If
   End With
   '--------

Boisgontier

 

[netparty]

Merci Boisgontier

Est-il possible quelle ne sois pas en commentaire mais directement dans une cellule

Bonne journée

 

[job75]

Est-il possible quelle ne sois pas en commentaire mais directement dans une cellule

Bien sûr et il y a de nombreux exemples sur le forum.

Mais normalement on ne fait jamais ça dans une base de données...

 

[pat12]

Ok merci à tous j'ai trouvé la solution sur un autre forum
Bon Dimanche.

 

[BOISGONTIER]

En important toutes les images, le fichier va grossir énormément. Il faudrait importer des miniatures.

Boisgontier