Discussion :

[arkorrigan]

Bonjour à tous,

J'essaye de créer une macro pour activer automatiquement une formule excel :
=LIEN_HYPERTEXTE("http://www.118012.fr/reponses.asp?RN="&K4&"&PAGE=1&RECHERCHE=EXACTE&LANGUE=FRFR-XXXXX#0"; "francois")

Elle s'active lorsqu'on clique dessus mais le code Range ("").select ne suffit pas à l'activer.

Vous avez une idée ?

Merci à vous.

[casefayere]

Bonjour,
essayes avec ce code

Code :

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

Range ("a1").Hyperlinks(1).Follow 'si tonhypertext est en "a1"

a +

[arkorrigan]

Merci à toi mais lorsque j'execute la macro, j'ai un message d'erreur execution 9, l'indice n'appartient pas à la selection.

Comprends pas...

[casefayere]

je pense que l'indice 1 est responsable dans "Hyperlinks(1)", il faut certainement chercher le bon indice mais là j'ai des lacunes

a +

[aalex_38]

bonjour,


J'ai fais quelques test et il ne faut pas confondre la formule, avec un lien hypertexte.

Le code de casefayere fonctionne si on a un lien hypertexte.

Une solution serait peut être d'isoler le nom du lien de la formule et d'ajouter le lien dans une autre cellule ?

[casefayere]

bonjour Alex et merci pour lui
je peux proposer à arkorrigan (avec l'aide de l'enregistreur) d'inserer le lien par macro

Code :

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

1
2
3
4
    ActiveSheet.Hyperlinks.Add Anchor:=Range("a1"), Address:= _
        "http://www.118012.fr/reponses.asp?RN=%22&K4&%22&PAGE=1&RECHERCHE=EXACTE&LANGUE=FRFR-XXXXX" _
        , SubAddress:="0""; ""francois"")", TextToDisplay:= _
        "http://www.118012.fr/reponses.asp?RN=""&K4&""&PAGE=1&RECHERCHE=EXACTE&LANGUE=FRFR-XXXXX#0""; ""francois"")"

pour un lien en a1 par exemple