Lien email

Bonjour Jo, le Forum

Je pense que ce code devrait passer sous Excel 97... (je ne l'ai pas)

Sub CreateEmailLink()
With ActiveSheet
.Range("A1") = "Email à Toto"
.Hyperlinks.Add .Range("A1"), Address:="mailto:toto@free.fr"
End With
End Sub

Sinon manuellement par un click droit sur la cellule "A1" et menu contextuel "Hyperliens"... Théoriquement le fait de saisir une addresse complete d'Email génére la création de l'hyperlien lorsuqe l'on fait entrée... (sais plus sous Excel 97 si ça le fait)


Bon App
@+Thierry

Hey le boss ;-)

je te remercie Thierry pour tes lumières!

Bye +