Problème HYPERLINKS.ADD ou ADDRESS

Bonjour,
J'ai beau faire, j'ai beau avoir fait énormément de VBA à une époque, je suis incapable de me sortir de cette ornière:
l'idée est la suivante:
je veux faire un dictionnaire médical particulier.
- Il contient sur la feuille4 un double index: une colonne français et une colonne anglais (noms de maladies).
- la feuille5 contient ces mêmes noms de maladies suivis colonneC de 6 items avec en correspondance en colonneD: 6 lignes informatives.
Mon problème consiste à faire un lien entre les noms de maladies de la feuille1 et ceux de la feuille2.
Il y a énormément d'entrées. J'ai donc voulu automatiser l'attribution des liens. Ce qui s'est passé de façon tout à fait correcte (à l'apparence). Tout semblait nickel-chrome dans les 2 boîtes de dialogue concernées: "Insertion->Nom->Définir" et "Insertion->Liens Hypertexte". Et cependant: message d'erreur: "Impossible d'ouvrir le fichier spécifié"... fichier qui je le rappelle est le même.
Pour clarifier mon propos, je refais un fichier à joindre LÉGER, je supprime TOUS les liens créés précédemment et je relance ma macro. Et du coup: plus rien.
Il y a qqch que je ne comprends pas dans HYPERLINKS.ADD car je ne vois pas d'où ailleurs peut provenir l'erreur.
Pardon d'avoir été un peu long pour avoir voulu être exhaustif.
Merci d'avance!!
Jean

Bonjour,

j'ai commencé à coder sur la colonne en anglais mais comme il y a des différences de saisie entre les deux feuilles …

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Demo() Application.ScreenUpdating = False AD$ = Feuil4.Name & "!B" COL = Application.Transpose(Application.Index(Feuil4.UsedRange, , 2))   With Feuil5.[C1].CurrentRegion For R& = 2 To .Rows.Count With .Cells(R, 1) If .Hyperlinks.Count Then .Hyperlinks.Delete V$ = .Value End With   L = Application.Match(V, COL, 0) If Not IsError(L) Then Feuil5.Hyperlinks.Add .Cells(R, 1), "", AD & L, V Next End With   Erase COL Application.ScreenUpdating = True End Sub

---

Ne pas confondre nom d'une feuille et son CodeName …

Sinon il y a la solution de ne pas faire de lien mais de passer par un évènement comme le double clic par exemple …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …