Lien Hypetexte automatique dans une liste

Bonjour,

Je vais de faire cette petite macro

'
'Dossier A Modifier
'
Sub AModifier_Click()
Dim Dossier As String, Fichier As String, i As Integer

Dossier = "CHEMIN DU DOSSIER "

i = 0

Fichier = Dir(Dossier)

Do While Fichier <> ""

  i = i + 1

  Sheets("Liste").Range("F" & i + 1) = Fichier

  Fichier = Dir

Loop
End Sub

Est-il possible que les noms des fichiers soient un lien hypertexte, pour ouvrir directement le fichier?

Merci

Bonjour,

Un essai ...

Sub AModifier_Click()
Dim Dossier As String, Fichier As String, i As Integer

Dossier = "CHEMIN DU DOSSIER "

   i = 0

   With Worksheets("Liste")
   Fichier = Dir(Dossier)

   Do While Fichier <> ""
      i = i + 1
      .Range("F" & i + 1).Hyperlinks.Add Anchor:=.Range("F" & i + 1), Address:= _
                                      Dossier & Fichier, TextToDisplay:=Fichier
      Fichier = Dir
   Loop
   End With
End Sub

ric

Bonjour RIC,

Merci pour ton aide.

Tout fonctionne.

Et merci pour cette astuce

[QUOTE]

Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code.

[/QUOTE]