Discussion :

[jeancalvet]

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

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …