pb ajout lienhypertxt relatif

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb ajout lienhypertxt relatif

benjamin51

bonjour
j'ai un petit problème avec une source pour ajouter un lien hyper texte
avant j'utilisais ThisWorkbook.Path pour ajouter un lien pour lequel je ne voulais pas taper la racine entière mais maintenant lorsque je deplace tout mon dossier les macro ne marche plus il faut que je la relance une fois pour quelle marche
en fait je voulais changer ca et mettre en lien relatif mais je n'arrive pas a le faire marcher...

Code :

Dim Fichier As String
Dim Cell As Range
For Each Cell In Range("F2:F310" )
Fichier = "Docs\" & Cell.Value & ".pdf"
If Dir(Fichier) <> "" Then
'verification de l'existance du fichier
ActiveSheet.Hyperlinks.Add Anchor:=Cell.Offset(0, -1), Address:=Fichier
'ajout lien hyper texte avec un offset
End If
Next

je sais pas ou es l'erreur mais il y en a une
si qqun la trouve
merci beaucoup

Publicité

benjamin51

c bon j'ai trouvé

le problème viens de
Fichier = "Docs\" & cell.value & ".pdf"
a remplacer par fichier = "..\"dossier racine"\docs\" & cell.value & ".pdf"

benjamin51

en fait non ca marche plus je c pas pourquoi ca a marché pdt un moment et maintenant il bug complet
est ce que qqun peut me dire si ma source est bonne ?
merci bcp

FORUM HardWare.fr

Programmation

VB/VBA/VBS

pb ajout lienhypertxt relatif

Sujets relatifs
require avec chemin relatif (pb de ./..)	pb avec macro "ajout lien hypertexte"
[XML] Ajout d'un noeud au debut	update (plutot ajout) dans table via un select
ACCESS requete ajout Insert into - a l'aide !	Page Type et ajout de boutons, IFrame
Ajout dynamique dans base sql via PHP	Ajout de caractère en tête de ligne d'un fichier
programation de base (ajout d'utilisateur)	[PHP] Problème ajout utilisateur dans AD
Plus de sujets relatifs à : pb ajout lienhypertxt relatif

Page générée en 0.033 secondes