Ajouter un lien hypertext sur un mail

Bonjour,

J'utilise exel pour remplir une base de donnée sur mes clients, afin de mieux gérer toutes la paperasse.

J'aimerai que quand je traite mon useform pour remplir mes cellules, que l’adresse mail ajouté apparaisse directement en bleu ( que le lien hypertexte soit déjà fait). Trop contraignant de faire entrer sur toutes les adresses mails.

J'ai essayer ceci:

.Cells(nbrclient.Value + 1, 12) = Lien_hypertext("mailto:"& Text_mail.Value)

Mais cela ne crée pas de lien,

Si quelqu'un peut m'aider merci,

up?

Bonjour

Tu peux essayer

Cells(nbrclient.Value + 1, 12) = "=HYPERLINK(""mailto:" & Text_mail.Value & """)"

Ou alors ceci

  ActiveSheet.Hyperlinks.Add Anchor:=Cells(nbrclient.Value + 1, 12), _
      Address:="mailto:" & Text_mail.Value, TextToDisplay:=Text_mail.Value

La premiere solution ne fonctionne pas mes la deuxieme si, merci

Bonjour,

J'aimerai pouvoir faire ca;

Hyperlinks.Add Anchor:=WS.Cells(no_ligne, 12), _

Address:="mailto:" & Text_mail.Value, TextToDisplay:=Text_mail.Value

Car je ne veux pas que ma page repertoire soit visible, je veut rester sur la page gestion, mais cela ne marche plus, comment je peux faire?

C'est bon j'ai trouvé

ThisWorkbook.Sheets("Repertoire").Hyperlinks.Add Anchor:=WS.Cells(no_ligne, 12), _

Address:="mailto:" & Text_mail.Value, TextToDisplay:=Text_mail.Value