lien hypertexte dans un classeur, comment adresser?

  • Initiateur de la discussion Initiateur de la discussion izarra2408
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

izarra2408

XLDnaute Nouveau
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 !
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
2
Affichages
153
Réponses
1
Affichages
180
Réponses
3
Affichages
193
Retour