Discussion :

[pristeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
ICM Etude réf - Copie - Copie (2).xlsm

[Jean-Philippe André]

Salut,

nous ne pouvons pas ouvrir de pièce jointe de type xlsm (sécurité oblige).

Mets un espion sur ta variable vNomFichier, tu devrais constater que la valeur est seulement celle du fichier, aussi tu devras probablement remplacer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=vCellule.Offset(0, 1), Address:="U:\Etude FRS\ICM\Plan pièce\" &vNomFichier, TextToDisplay:=vNomFichier

[pristeur]

Bonjour,

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

Bonne journée

[tokyoblade]

bonjour,

Merci Pristeur et jean Philippe pour ce code qui m'est très utile
J'aurai aimé avoir une astuce complémentaire; je m'explique mes fichiers image sont répertoriés dans différents répertoires (par nom de commune, 87 au total) y a t'il la possibilité de réaliser en une seule fois la création des liens hypertexte ?

Suis je assez clair ? ....

exemple:
d:\JPG\Lievin\pho25001.jpg, pho25002.jpg,...
d:\JPG\Grevin\pho31001.jpg, pho31002.jpg, ...
etc ...

Cordialement