FollowHyperlink... comment faire ?

Fermé
Nimsir Messages postés 53 Date d'inscription dimanche 5 octobre 2008 Statut Membre Dernière intervention 11 juillet 2012 - 12 juil. 2011 à 10:41
Nimsir Messages postés 53 Date d'inscription dimanche 5 octobre 2008 Statut Membre Dernière intervention 11 juillet 2012 - 14 juil. 2011 à 08:46
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 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
12 juil. 2011 à 12:59
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 53 Date d'inscription dimanche 5 octobre 2008 Statut Membre Dernière intervention 11 juillet 2012 13
12 juil. 2011 à 13:02
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 53 Date d'inscription dimanche 5 octobre 2008 Statut Membre Dernière intervention 11 juillet 2012 13
13 juil. 2011 à 09:27
up...
0
Nimsir Messages postés 53 Date d'inscription dimanche 5 octobre 2008 Statut Membre Dernière intervention 11 juillet 2012 13
14 juil. 2011 à 08:46
up...
0