Ecriture de la fonction FollowHyperlink

[Methylos]

Bonjour a tous et toutes...

Etant novice en VBA, je sollicite votre aide :

J'ai une liste de sites internets ( type : Ce lien n'existe plus ) dans la colonne C, et j'essaye tant que mal a faire un bouton avec une macro qui ouvre une nouvelle fenetre de la cellule sur laquel je me trouve .

Mon code est celui ci mais je vois pas ce qui cloche !!

Sub Go_URL()
ActiveWorkbook.FollowHyperlink Address:=Range(ActiveCell).Select, _
NewWindow:=True

End Sub

est ce que quelqu'un peu m'exclairer ma lampe. 🙂

 

[Guest]

Re : Ecriture de la fonction FollowHyperlink

Bonjour Methylos,

cela a plus de chance de fonctionner sans le select:

ActiveWorkbook.FollowHyperlink Address:=Range(ActiveCell),NewWindow:=True

A bientôt

 

[tototiti2008]

Re : Ecriture de la fonction FollowHyperlink

Bonjour à tous,

la fonction LIEN_HYPERTEXTE peut être intéressante également et s'éviter du VBA dans beaucoup de cas...

 

[Methylos]

Re : Ecriture de la fonction FollowHyperlink

Merci a vous deux,

Quelle rapidité, je suis soufflé 😱

Cependant cela ne marche pas il me met une erreur bâtarde 1004.

Sub Go_URL()
ActiveWorkbook.FollowHyperlink Address:=Range(ActiveCell), NewWindow:=True
End Sub
comme hasco me la dit heu écrit 😀
Hasco il y a t il un format a mettre dans la cellule peut etre ...😕

Tototiti2008 comment adapter la fonction lien_hypertext dans un userform.

l'adresse se trouvant dans une textBox.

Sub Go_URL()
ActiveWorkbook.FollowHyperlink Address:=textbox.value, NewWindow:=True
End Sub

j'essaye de me faire une p'tit appli excel de referencement de site

merci par avance

 

[tototiti2008]

Re : Ecriture de la fonction FollowHyperlink

Bonjour Methylos,

désolé, je croyais que tu voulais créer des liens dans les cellules (encore à côté, moi)

ceci dit, je crois que ton soucis vient de :

Address:=Range(ActiveCell)

moi je mettrais :

Address:=Activecell

ou éventuellement (si ça ne marche pas) :

Address:=Activecell.Value