Activer une formule lien hypertexte avec une macro

[arkorrigan]

Bonjour à tous,

Mon objectif est d'activer un lien hypertexte issu d'une fonction lien hypertext d'excel (http://www.118012.fr/reponses.asp?RN="&K3&"&PAGE=1&RECHERCHE=EXACTE&LANGUE=FRFR-XXXXX#0). Seulement, lorsque je fais un simple Range("").select pour activer le lien, il ne se passe rien...
Vous avez une idée ?

Merci à vous !

[ESVBA]

un code du genre

Code :

    Range("A10").Hyperlinks(1).Follow

avec entre parenthèse l'index du lien (Voir l'aide VBA).

ESVBA

[arkorrigan]

euh, l'index du lien, c'est le nom du lien ou un code spécifique..?

[ESVBA]

c'est tel quel pour une seule cellule.

Pour des cellules, il faut utiliser la collection "hyperlinks". Et faire suivre par un nombre entre parenthèses qui représente l'ordre du lien hypertexte pour une plage de cellule.

Ici, une cellule donc pas de problème c'est forcément un seul lien "(1)".

ESVBA

[JPierreM]

Tu as déjà posé la question lors d'une précédente demande dans la journée, je t'ai répondu

[arkorrigan]

Bonjour à tous,

Effectivement, excusez moi!
En regardant de plus près la formule, je me suis rendu compte que le lien hypertexte est inclus dans une formule Excel. C'est pourquoi le code ne fonctionne pas.
Je vous transmets la formule complète :
=LIEN_HYPERTEXTE("http://www.118012.fr/reponses.asp?RN="&K4&"&PAGE=1&RECHERCHE=EXACTE&LANGUE=FRFR-XXXXX#0"; "francois")

Quelle serait le code le plus adapté pour lancer cette formule automatiquement.

Merci pour votre aide