Discussion :

[seta69]

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 :

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

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

[ouskel'n'or]

Peut-être...

Code :

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

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

A+

[seta69]

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

Code :

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

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