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
Partager