[VBA-E] Affecter un lien hypertexte au texte d'un cellule

Bonjour à tous !

Je tente d'affecter un lien hypertexte au texte d'une cellule mais je n'y arrive pas. J'ai pourtant repris mot pour mot le code de l'aide :

Code:

---

1 2 3 4

With Worksheets(1) .Hyperlinks.Add.Range("E5"),"http://monlien.com" End With

---

mais au moment de l'exécution, il m'affiche une erreur d'exécution : nombre d'arguments incorrect ou affectation de propriété incorrecte.

Merci pour votre aide

message édité

en fait c'est parce qu'il manque un espace entre le ADD et le .Range :

Code:

---

1 2 3

With Worksheets(1) .Hyperlinks.Add .Range("E5"),"http://monlien.com" End With

---

:wink:

Citation:

---

Envoyé par bbil

en fait c'est parce qu'il manque un espace entre le ADD et le .Range :

Code:

---

1 2 3

With Worksheets(1) .Hyperlinks.Add .Range("E5"),"http://monlien.com" End With

---

:wink:

---

Effectivement... Trop con l'erreur... Merci !

essaye cela

Code:

---

1 2 3 4 5

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.google.fr/", ScreenTip:="ton ami", TextToDisplay:= _ "google est mon ami"

---

Merci à tous, c'est tout bon !