Bonjour,
J'ai mis en place une nouvelle macro dans mon tableau de suivi du courrier pour que les liens hypertext se fassent seul avec les documents pdf enregistrés dans mon dossier courrier.
La macro à fonctionne correctement mais seulement sur la première ligne de mon tableau (ligne 2) pourriez vous m'aider à régler ce pb svp :
Voici la macro :
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
Merciiiiii