Recuperer adresse controle image

Bonjour

Je fais remplir un userform a l utilisateur ou il entre son nom prenom adresse... et choisit une photo dans un controle image..

Une fois qu il clique sur valider , je stocke dans la colonne A d une feuille le nom , dans B le prenom ...etc

Dans la Colonne D je souhaite stocker, donc recupere le chemin de l image que l utilisateur as placé dans le userform..

Comment puis je faire cela , je navigue a travers les proprietes mais je n arrive pas a trouver ce que je cherche

En atente de vos reponses , merci d avance

Cordialement

joint un fichier pour pouvoir bien écrire le code.

pas de fichier joint alors je vais essai :

je suppose que tu a un Botton pour ramener la photon dans notre cas je lui donne le nom "CommandButton_AjouterPhoto" et un TextBox pour écrire le chemin dans mon cas je lui donne le nom "TextBox_Lien" alor mon code:

Private Sub CommandButton_AjouterPhoto_Click()
Dim Fichier As Variant 'declaré Fichier
Fichier = Application.GetOpenFilename(, , "Sélectionnez votre Photo")
If Not Fichier = "Faux" Then
    Me.TextBox_Lien.Value = Fichier
End If

End Sub

alors en a ramené le chemin il ne reste de le copier a la colonne D de la Feuil1 après avoir cliqué sur le Botton nommé "Valider"

Sub Valider_Click()

no_ligne = Sheets("Feuil1").Range("D65536").End(xlUp).Row + 1

Sheets("Feuil1").Range("D" & no_ligne) = TextBox_Lien
End Sub

a plus

Bonjour

Merci a vous , je suis pervenu a faire ce que je voulais !

Bonne journee

Cordialement

Rechercher des sujets similaires à "recuperer adresse controle image"