1 pièce(s) jointe(s)
VBA création lien hypertexte automatique
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:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 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
Pièce jointe 372489
