macro mail

Bonjour à tous.
Je suis super-débutant...:oops:
J'essaye de convertir le contenu d'une cellule contenant une adresse mail sans lien hypertexte, en contenu avec lien hypertexte, à l'aide d'une macro
Voilà ce que j'ai "pondu':
Code:

1 2 3 4 5 Dim vadress As String Range("I9").Select vadress = ActiveCell ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto: vadress"
Le texte xxx@xxx est converti en lien, qui ouvre un mail, mais l'adresse reprise dans le mail est "vadress" et pas le contenu de la cellule active.
J'ai essayé pas mal de choses, mais rien ne va...

J'espère qu'il y a une bonne âme sur ce forum.

bonjour,

essaie

Code:

1
2
3
4
5
Dim vadress As String
 Range("I9").Select
 vadress = ActiveCell
 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & vadress

cordialement

A fred65200:
NICKEL, ya pas d'autre mot.
Merci beaucoup, c'est vraiment sympa.

:yaisse2::yaisse2::yaisse2::yaisse2::yaisse2: