Lien hypertexte inactif après leur construction en vba

[christof.rmc]

Bonjour,
Je reçois régulièrement de longues listes de titres et d'adresses url sous Excel et j'aimerais les "fusionner" en mettant un lien hypertexte sur le titre. Il pourrait ainsi me renvoyer sur la page Internet.
J'ai rédigé pour ce faire un petit programme mais les liens hypertextes sont inactifs.
Comme on doit ouvrir une page Internet Explorer ou autres via le lien hypertexte sans doute manque-t-il plusieurs éléments qui permettent de débloquer le passage de l'un à l'autre.
Est-ce que quelqu'un serait en mesure de m'aider ?

Un grand merci par avance pour votre aide

Christof

 

[christof.rmc]

Re : Lien hypertexte inactif après leur construction en vba

Désolé, j'ai oublié de préciser que le programme se trouve dans le Module 1, Macro 5.
Avec toutes mes excuses.
Christof

 

[Staple1600]

Re : Lien hypertexte inactif après leur construction en vba

Bonsoir


Pas sur d'avoir tout compris, mais voici un exemple pour activer un lien hypetext

Sub Activerlien()
If ActiveCell.Hyperlinks.Count > 0 Then
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub

 

[Gelinotte]

Re : Lien hypertexte inactif après leur construction en vba

Bonjour,

Dans la macro5, à la section :' Liens hypertextes

Tu as écris
a = ActiveCell.Offset(0, 1).Value
Il faut écrire
a = ActiveCell.Offset(1, 0).Value ' ICI était l'inversion

Ainsi, ça fonctionne bien

 

[christof.rmc]

Re : Lien hypertexte inactif après leur construction en vba

Un grand merci, j'ai fait la modification et cela fonctionne parfaitement. C'était bien l'inversion le problème. Je bloquais depuis un moment. Merci pour tout
Christof