Discussion :

[yaya54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

message édité

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yaya54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[random]

essaye cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yaya54]

Merci à tous, c'est tout bon !