Bonjour !

Je dois créer un fichier "référence" contenant une liste de centaines d'autres feuilles excel et d'information liées à ces feuilles.

Pour le moment je chercher déjà mettre un lien hypertexte dans la colonne contenant les références des feuilles excel et j'ai essayer d'adapter la solution pour Leeyla dans cette discussion mais magie magie ça ne fonctionne pas.

Pourtant la colonne contenant les références des feuilles excel correspond à leur nom dans le "dossier répertoire" je n'ai donc qu'une seul information à lire pour créer mon lien si j'ai bien compris...

Voici le code :
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
Sub Creer_Lien()
    Application.ScreenUpdating = False
 Dim cpt_l As Integer
Dim repDefaut As String, ref_FC As String, chemin_lien As String
 
repDefaut = "V: . . .\FICHES\" 'chemin répertoire
 
For cpt_l = 2 To Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row
    ref_FC = Sheets("Feuil1").Cells(cpt_l, 4) 'COLONNE D
 
    chemin_lien = repDefaut & ref_FC & ".xlsx"
 
    Sheets("Feuil1").Cells(cpt_l, 4).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=chemin_lien
 Next cpt_l
    Application.ScreenUpdating = True
End Sub
Comme je suis plus que débutante, je ne comprends pas pourquoi cela ne fonctionne pas...