Macro pour créer liens vers fichiers archivés...

Sub CreationLiens() 'de seniorpapou de 2008
Dim Lien As String
Dim Fichier As String
'Const Dossier As String = "C:\Users\christian\Desktop\Factures et Devis\Archives\"
Const Dossier As String = "C:\Users\Jean-Claude\Desktop\"
r = Range("B10000").End(xlUp).Row
Columns("F:F").Clear
For I = 2 To r
        Fichier = Dossier & Range("B" & I) & ".xlsx"
        If Len(Dir(Fichier, vbNormal)) > 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=Range("F" & I), Address:=Dossier & Range("B" & I) & ".xlsx", TextToDisplay:=CStr(Range("B" & I))
        Else
            Range("F" & I) = ""
        End If
        Dir ("")
    Next
End Sub