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

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour cette macro, "créer des liens", qui pour l'instant ne fonctionne pas ?
Pourriez-vous me dire ce qui cloche...???

Voir fichier joint

Merci, par avance, pour votre aide.

Bien amicalement,
Christian

 

[JCGL]

Bonjour à tous,
Salut Christian,

Ceci devrait fonctionner :

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

A+ à tous

 

[Christian0258]

Re, le forum, Jean-Claude,

Salut, Jean-Claude, et merci pour ton aide...
c'est bizarre rien ne se passe....???

Peux-tu me dire,

Bien à toi.
Christian

 

[JCGL]

Bonjour à tous,

Enlève le .xlsx en B.

A+ à tous

 

[Christian0258]

Re, le forum, Jean-Claude,

Merci, Jean-Claude, impec de chez impec

Bien à toi,
Christian