Bonjour,

J'ai créé un tableau dans lequel je souhaité que des liens hypertextes se forment automatiquement avec des pdf présents dans un dossier.

Mais ça ne fonctionne que sur la première ligne

Quelqu'un pourrait-il m'apporter son aide svpppp ? Je suis autodidacte c'est pas simple pour moi.

voici la macro :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub List_Hyperlink()
 
Dim ch, fi As String
 
ch = "U:\Enregistrement courrier\scans courriers arrivées DST\2020-2021\"
 
fi = Dir(ch)
 
If fi <> "" Then
 
	I = 2
 
	Do While fi <> ""
 
		Cells(I, 2) = ch & fi
 
		Cells(I, 1) = FileDateTime(Cells(I, 2))
 
		Cells(I, 9).Hyperlinks.Add Anchor:=Cells(I, 9), Address:=ch & fi, TextToDisplay:=fi
 
		fi = Dir
 
		I = I + 1
 
	Loop
 
End If
 
 
 
End Sub