Chargement photos

[Doudou45]

Hello ami(e)s du forum,

Voilà en parcourant les sujets, je n’ai pas trouvé réponse à ma problématique.
Je souhaite à partir d’un Userform réaliser la séquence suivante :
L’utilisateur puisse :

En cliquant sur le bouton 1 :
- Choisir une image dans un répertoire de son choix,

En renseignant dans un Textbox 1 :
- Donner un nom à l’image,

En cliquant sur le bouton 2 :
- Envoyer l’image dans un répertoire défini,
- Dans le classeur Excel associé, créer un lien hypertexte renvoyant vers l’image en question et affichant le nom de l’image défini (Textbox 1)
Je ne sais vraiment pas par quoi commencer… ?

Qui peut m’aider les ami(e)s ?

 

[exene]

Re : Chargement photos

Bonjour,

Pourrais tu regarder sur le site de Jacques Boisgontier, il y a des exemples de manipulation d'images

@ plus

Shapes

 

[Doudou45]

Re : Chargement photos

Hello,

Ok merci Exene. Bon j'ai pas mal regardé le topic mais il n'y a pas le cas que j'évoque en question...Du coup, retour à l'envoyeur.
Est-ce que quelqu'un a une idée pour m'aider ?

 

[Doudou45]

Re : Chargement photos

Hello !
Un peu d'aide please (!?)

Je n'arrive pas à avancer sur ce sujet...une âme charitable les ami(e)s ?

 

[Staple1600]

Re : Chargement photos

Bonjour à tous

Ovide
Une piste à peaufiner
(j'ai ajouté un label que j'ai nommé lblPictpath)

Private Sub CommandButton1_Click()
Dim fichier
fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If fichier <> False Then
lblPictpath = fichier
TextBox1 = Split(fichier, "\")(UBound(Split(fichier, "\")))
Else
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
Dim X&
With Sheets("Feuil1")
X = .Cells(Rows.Count, 1).End(3).Row
.Hyperlinks.Add Anchor:=.Cells(X + 1, 1), Address:=lblPictpath, TextToDisplay:=TextBox1.Text
End With
Me.Hide 'facultatif
End Sub

 

[Doudou45]

Re : Chargement photos

Ok, merci, je vais voir si je peux utiliser cet élément !

@+