Macro et Hypertext

Salut,

En faites j'ai 2 colonnes une avec des nom de fichiers et une autres avec des liens hypertext qui donne dans un dossier.

Par exemple:

Fichier1 \\serveur1\repertoire$

et j'aimerais que le nom du fichier s'ajoute a la fin du lien pour faire : \\serveur1\repertoire$\Fichier1

Pour l'instant j'utilise çeci :

Code:

---

1 2 3 4 5 6

Sub Hypertext() For Each cell In Selection adresse = cell.Offset(0, 12).Value ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse Next End Sub

---

2 problèmes
Il ne trouve pas le lien sur réseau , il rajoute C: Oo
Le nom du fichier ne s'ajoute pas la fin du lien, je ne sais pas comment faire.

merci de votre aide

Peut-être...

Code:

---

1 2	Nom = "Fichier1 \\serveur1\repertoire$" Mot = "\\" & Split(Nom, "\\")(1) & "\" & Split(Nom, "\\")(0)

---

A+

J'ai resolu mon problème merci quand meme pour l'aide voici le code on ne sait jamais

Code:

---

1 2 3 4 5 6

Sub Hypertext() For Each cell In Selection adresse = cell.Offset(0, 12).Value & cell.Offset(0, 0).Value & ".pdf" ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse Next End Sub

---