pb ajout lienhypertxt relatif

pb ajout lienhypertxt relatif - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2006 à 13:35:25    

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


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

Reply

Marsh Posté le 22-05-2006 à 13:35:25   

Reply

Marsh Posté le 22-05-2006 à 14:10:47    

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"

Reply

Marsh Posté le 22-05-2006 à 16:05:46    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed