Lien absolu

[azzouzze]

bonjour,

Je voudrais savoir comment récupérer le lien absolue d'un fichier en Macro excel.

Voila un bout de ma macro ou je ne récupère que le lien relatif:

' boucle de recupération des champs des fichiers
' Word dans le dossier spécifié
For i = 0 To UBound(Tablo) - 1

Set WordDoc = WordApp.Documents.Open(Tablo(i), ReadOnly:=False)
With WordDoc
If Not Left(.Name, 1) = "~" Then ' ne récupère pas les temporaires, sinon bug
' écriture dans la feuille xl active
Cells(ii, 1) = .Name
' lien relatif
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ii, 1), Address:=Tablo(i)

Merci d'avance

 

[Luki]

Re : Lien absolu

bonjour Azzouze,

Que veux-tu dire par lien absolu?

Si c'est le chemin complet pour le lien hypertexte,( c:\ etc. )c'est ce que ça fait chez moi.

Pas compris ce que tu veux. Précises stp.

Ate lire

 

[azzouzze]

Re : Lien absolu

oui c est le lien complet. Chez moi ca le fait par rappor à ou se trouve le .xls
donc si je bouge mon .xls et que je clic sur le lien, il me dit :"fichier introuvable"

Merci d'avance

 

[Luki]

Re : Lien absolu

Re, toujours aucun souci chez moi :xl 2000.

Rien trouvé de mon côté.

Fais un essai en ajoutant un lien à la main et déplaces ton xls. Si le problème est le même, c'est peut-être une option à cocher . Quelle est ta version ?

A+

 

[azzouzze]

Re : Lien absolu

Je suis désole c'est vrai que ca fonctionne. J'ai confondu les versions de mes fichiers.

Merci de ton aide.