lien hypertexte dans un classeur, comment adresser?

[izarra2408]

Bonjour,
j'ai créé une macro qui cherche dans un classeur entier le nom d'un fournisseur. La macro affiche le nom de ce fournisseur, son numéro et le nom de la page où elle a trouvé ce fournisseur.
J'aimerais que cette derniere case contienne un lien hypertexte qui aille directement vers cette page.
Je ne parviens pas à donner une adresse correcte, une erreur s'affiche et me dit : Reference is not valid.
voici mon code si vous pouviez me dire où ca cloche ! merci beaucoup d'avance !

Private Sub bouton_valider_nom_Click()

Dim ligne As String
Dim cell As Range
Dim feuille As Worksheet
Dim nom_fournisseur As String
Dim nom_feuille(20) As String
Dim ligne_finale As Integer
Dim stockage_ligne As Integer
Dim i As Integer
Dim h As Integer
Dim k As Integer
Dim j As Integer
ligne = 9
i = 1
nom_fournisseur = remplissage_nom_fournisseur.Value
 
Workbooks("memoversionexcel4").Activate
 
For Each feuille In Worksheets
    feuille.Activate
    nom_feuille(i) = ActiveSheet.Name

    For Each cell In Range("B1:U100")
        If cell = nom_fournisseur Then
            Worksheets("Recherche").Range("H" & ligne).Value = nom_fournisseur
            Worksheets("Recherche").Range("I" & ligne).Value = cell.Offset(0, 1).Value
            Worksheets("Recherche").Range("J" & ligne).Value = nom_feuille(i)
            Worksheets("Recherche").Hyperlinks.Add Anchor:=Worksheets("Recherche").Range("J" & ligne), Address:="memoversionexcel4.xls", SubAddress:="'nom_feuille(i)'!A1"
            ligne = ligne + 1
        End If
    Next

    i = i + 1
 
Next
 
If ligne = 9 Then Worksheets("Recherche").Range("H9") = "Aucun résultat. Vérifiez le nom du fournisseur."
 
Unload Me
End sub

 

[tototiti2008]

Re : lien hypertexte dans un classeur, comment adresser?

Bonjour izarra,

tout ce qui me saute aux yeux, c'est :

SubAddress:="'nom_feuille(i)'!A1"

que je changerais en :

SubAddress:="'" & nom_feuille(i) & "'!A1"

 

[izarra2408]

Re : lien hypertexte dans un classeur, comment adresser?

Parfait merci beaucoup !