Ouvrir lien hypertexte sans la souris

Bonjour,

TGV6773

Normalement en choisissant le lien par tabulation puis en cliquant sur Enter. (Merci Corinne )

Bonnes salutations

Ah, non, excuse-moi. Mon truc fonctionne avec Internet, mais pas avec Excel.

Désolé

Bonne soirée

D'accord ça ne marche pas. Je suis ouvert à d'autres propositions

A+

bonjour,

Ben c'est pas très simple...

Codé à la hache et avec le pied voici une macro qui résoud quelques cas...

Sub test()
Dim s$, i%, Ws$, cellule$
s = ActiveCell.Hyperlinks(1).SubAddress
  If Len(s) = 0 Then 'Liens "normaux"
    ActiveCell.Hyperlinks(1).Follow
  Else 'liens dans le classeur
    i = InStr(1, s, "!")
    If i Then
      Ws = Left(s, i - 1)
      cellule = Right(s, Len(s) - i)
      Sheets(Ws).Activate
      Range(cellule).Activate
    Else 'liens nommé
      MsgBox "range nommé : me consulter..."
    End If
  End If
End Sub

Euh... désolé je n'ai pas 2003 en ce moment ! YFO essayer !

A+