Discussion :

[ouskel'n'or]

Ci-joints trois fichiers :

Le premier crée une liste des fichiers d'un répertoire choisi sans Hyperlinks.
Pièce jointe 20224

Le second crée une liste des fichiers d'un répertoire choisi avec Hyperlinks :
Pièce jointe 20225

Le troisième liste les classeurs du répertoire sélectionné et de ses sous-répertoires avec Hyperlinks :
Pièce jointe 20226

Ces trois fichiers proposent une boîte de dialogue permettant de sélectionner le répertoire à explorer. La sélection du répertoire entraîne l'insertion de l'adresse des fichiers dans une feuille de calculs Excel.
Les deux derniers transforment ces adresses en liens "hypertexte"

[ouskel'n'or]

Deux méthodes permettent d'insérer des liens hypertextes dans une feuille de calculs,
1 - Insertion par formule
Ce code fonctionne également sur un classeur partagé

Code :

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

1
2
3
4
5
6
7
8
Sub InsérerLienHyperText()
Dim FL1 As Worksheet, DerniereLigne as long, NomFich$
Set FL1 = ActiveSheet
    NomFich = Application.GetOpenFilename("Text Files (*.Doc), *.Doc")
    DerniereLigne = FL1.Range("A65535").End(xlUp).Row + 1
    FL1.Range("A1").Offset(DerniereLigne, 0).FormulaLocal = _
    "=LIEN_HYPERTEXTE(""" & NomFich & """;""" & NomFich & """)"
End Sub

2 - Insertion directe du lien par le code
Ce code ne fonctionne pas sur un classeur partagé.

Code :

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

1
2
3
4
5
6
7
Sub InsérerUnLienHyperTextParMacro()
Dim FL1 As Worksheet, DerniereLigne As Long, NomFich
Set FL1 = ActiveSheet
    NomFich = Application.GetOpenFilename("Text Files (*.Doc), *.Doc")
    DerniereLigne = FL1.Range("A65535").End(xlUp).Row + 1
    FL.Hyperlinks.Add FL1.Range("A1").Offset(DerniereLigne, 0), NomFich
End Sub