VBA création lien hypertexte

Bonjour à tous,

J'ai créé une macro me permettant de créer un lien hypertexte automatiquement en fonction d'une référence. Ce lien est un fichier présent dans un dossier. La macro permet de rechercher un fichier composé de la référence inscrite dans la 1ére colonne du excel.

Mon lien hypertexte se créer sans problème, par contre j'ai un message d'erreur dès que je veux ouvrir ce lien: "impossible d'ouvrir le fichier spécifié"

Je me comprends pas d'où viens le problème. Je précise que si je crée le lien hypertexte manuellement, tout fonctionne correctement.

Voici le code:

Sub Test()

Dim vCellule As Range

Dim vNomFichier As String

For Each vCellule In Range("A2:A1203")

vNomFichier = Dir("U:\Etude FRS\ICM\Plan pièce\*")

Do While vNomFichier <> ""

If InStr(vNomFichier, vCellule) Then

ActiveSheet.Hyperlinks.Add Anchor:=vCellule.Offset(0, 1), Address:=vNomFichier, TextToDisplay:=vNomFichier

vNomFichier = Dir()

Else

vNomFichier = Dir()

End If

Loop

Next

End Sub

Merci beaucoup pour votre aide

PB

Bonsoir,

Essayer cette correction

Sub Test()

Dim vCellule As Range
Dim vdir As String, vNomFichier As String

    vdir = "U:\Etude FRS\ICM\Plan pièce\"
    For Each vCellule In Range("A2:A13")

        vNomFichier = Dir(vdir & "*")

        Do While vNomFichier <> ""

            If InStr(vNomFichier, vCellule) Then

                ActiveSheet.Hyperlinks.Add Anchor:=vCellule.Offset(0, 1), Address:=vdir & vNomFichier, TextToDisplay:=vNomFichier

                vNomFichier = Dir()

            Else

                vNomFichier = Dir()

            End If

        Loop

    Next

End Sub

Bonjour,

Merci beaucoup pour votre réactivité, cela fonctionne parfaitement.

Bonne journée