FollowHyperlink... comment faire ?

Nimsir Messages postés 54 Statut Membre -  
Nimsir Messages postés 54 Statut Membre -
Bonjour et merci à tous ceux qui prendront le temps de m'aider.

J'ai un fichier excel contenant deux feuilles:
1) Feuil de travail 2) C_C

La feuille 2 servira uniquement à y copier/Coller (C_C) le contenu d'un autre fichier (après nettoyage).
La feuille 1, contient dans les colonnes A à X, des liens vers des cellules de la feuille 2.
Ainsi par exemple, dans la feuille 1, la cellule A2 renvoi vers la cellule C2 de la feuille 2 et ainsi de suite jusqu'à la colonne X et ce sur 500 lignes.
Les colonnes Y, Z et AA sont destinés à être remplis manuellement.
Les colonnes de AC à AM contiennent des "concatenate" afin de créer des morceaux de liens avec les données présentes dans les cellules A à AA.
La colonne AB contient le lien final (avec plus de 255 caractères !).

Ayant plus de 255 caractères, la fonction hyperlink ne fonctionne donc pas. (value !).

En dépeçant le net de toutes ses informations, j'ai constaté qu'il existait une petite macro (?) VBA "followhyperlink"... néanmoins, je n'ai pas trouvé comment l'utiliser.

En résumé, avec le followhyperlink, il me faudrait que chaque cellule dans la colonne AB m'ouvre Internet Explorer avec le lien contenu dans le cellule (lien créé via un concatenate)

J'espère avoir été clair... Si pas, n'hésitez pas à poser des questions.

D'avance merci,
Nim



4 réponses

Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

En dépeçant le net de toutes ses informations, j'ai constaté qu'il existait une petite macro (?) VBA "followhyperlink"... néanmoins, je n'ai pas trouvé comment l'utiliser.


Et le code de ta macro, il ressemble à quoi ?

A te relire
Mytå
0
Nimsir Messages postés 54 Statut Membre 13
 
J'en ai trouvé pusieurs, mais le dernier en date est celui-ci


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub


J'ai aussi essayé celui-ci

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

End Sub


Mais étant donné que j'y connais rien en VBA... je ne sais pas :(

Merci à toi,
0
Nimsir Messages postés 54 Statut Membre 13
 
up...
0
Nimsir Messages postés 54 Statut Membre 13
 
up...
0