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