hyperlien

[JC de Lorient]

Bonjour le forum

malgré tous les post traitant le sujet, j'ai pas trouvé mon bonheur
au départ ça me sembalit pourtant simple 🙁
Comment mettre dans un textbox un format hyperlien
TextBox3 = Range('E' & ListBox1.ListIndex + 3)
ex 🙁'E' & ListBox1.ListIndex + 3 = toto@aol.com
J'en profite pour vous demander la procédure pour qu'en cliquant (ou autre) sur mon taxtbox3 je puisse envoyer un mail a toto

mille mercis a vous

 

[Mytå]

Salut Jc de Lorient

Un début de piste (Désolé je connais pas l'auteur)

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim dest$, sujet$, texte$

dest = TextBox1.Value
sujet = 'Envoyer un mail depuis XL'
texte = 'Envoyé avec Outlook Express depuis Excel'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & dest & _
'?subject=' & sujet & _
'&Body=' & texte
End Sub

Mytå

 

[pierrejean]

bonjour JC (de Lorient)

salut Myta

Quelque chose qui ressemble a ce que tu decris
(avec utilisation d'une cellule relais (D1)

http://cjoint.com/?gzjqadKi32

 

[JC de Lorient]

Bonjour a tous

Merci a vous deux, je devrais pouvoir m'en sortir avec vos réponses
Kénavo