Impossible de télécharger les données demandées

Guy Moncomble

09/09/2003 à 19:16

Bonjour à tous,
dans le message <004601c376ee$5bd537e0$,

| Bonjour,
|
| Ce message vient précisé celui posté hier, le 8 sept 2003
| 12:58 "Prob hyperlien en erreur dans table des matières"
|
| J'utilise Word 2000 et je mets une adresse url
| genre "http://intranet/depot/" dans la
| propriété "Répertoire Web" du document qui contient des
| hyperliens vers d'autres documents présents dans le dépôt
| intranet mentionnés. Les hyperliens vers les documents
| présents dans ce dépôt fonctionnent bien mais les
| hyperliens vers d'autres sections à l'intérieur même du
| document ne fonctionnent plus.
|
| Par exemple, les hyperliens créés automatiquement par la
| création de la table des matières sont en erreurs. Quand
| je clique sur un des items de la table des matières
| j'obtiens le message "Impossible de télécharger les
| données demandées".
|
| Pourtant en regardant le code de champ tout semble beau
| ´
| {HYPERLINK l _Toc50871380} (le commutateur l indique
| qu'il s'agit d'un lien interne)
|
| Est-ce que le fait d'utiliser la propriété (Fichier >
| Propriétés > Résumé : Répertoire Web) interdit
| l'utilisation de lien intra-document ! Ce serait bien
| étrange.

Bien étrange peut-être, mais c'est pourtant l'explication.
Tu peux revenir à un fonctionnement normal en supprimant le chemin
indiqué dans le répertoire Web, les liens seront modifiés en
conséquence. Il suffit éventuellement de remettre tous les champs à
jour, si tu veux changer le répertoire externe.
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

09/09/2003 à 19:27

Bonjour Pierre,

Je pense qu'effectivement, le problème vient du répertoire web indiqué dans
le résumé...
L'adresse mise ici renvoie TOUS les liens du document à cet endroit, y.c.
les liens de la table des matières. Donc, cette info est prioritaire sur le
commutateur l.

Pour l'instant, je n'ai pas la solution, j'ignore s'il y en a une, mais j'y
réfléchis.... ;-) Enfin, j'espère que je ne suis pas seule à réfléchir !!!
;-))

nuindacil
mvp word
http://faq.ms.word.free.fr

Pierre wrote:
| Bonjour,
|
| Ce message vient précisé celui posté hier, le 8 sept 2003
| 12:58 "Prob hyperlien en erreur dans table des matières"
|
| J'utilise Word 2000 et je mets une adresse url
| genre "http://intranet/depot/" dans la
| propriété "Répertoire Web" du document qui contient des
| hyperliens vers d'autres documents présents dans le dépôt
| intranet mentionnés. Les hyperliens vers les documents
| présents dans ce dépôt fonctionnent bien mais les
| hyperliens vers d'autres sections à l'intérieur même du
| document ne fonctionnent plus.
|
| Par exemple, les hyperliens créés automatiquement par la
| création de la table des matières sont en erreurs. Quand
| je clique sur un des items de la table des matières
| j'obtiens le message "Impossible de télécharger les
| données demandées".
|
| Pourtant en regardant le code de champ tout semble beau
| ´
| {HYPERLINK l _Toc50871380} (le commutateur l indique
| qu'il s'agit d'un lien interne)
|
| Est-ce que le fait d'utiliser la propriété (Fichier >
| Propriétés > Résumé : Répertoire Web) interdit
| l'utilisation de lien intra-document ! Ce serait bien
| étrange.
|
| Merci d'avance à ceux qui voudront bien nous aider.
|
| Salutations
|
| Pierre-Yves (Québec)

10/09/2003 à 17:34

Bonjour Pierre-Yves,

Oui, je pensais bien à un truc comme ça, mettre le chemin complet... mais
effectivement, fallait une macro, sinon, on n'en finit pas (anacoluthe va
être content... ;-)))

Je laisse anacoluthe ou guy homologuer ton code, et celui-ci finira dans la
faq !!! ;-))))

Merci à toi pour ce retour d'info,

nuindacil

Pierre-Yves wrote:
| Bonjour Nuindacil et les autres aidants éventuels,
|
| Je crois que j'ai trouvé une solution assez simple pour
| résoudre mon problème.
|
| Il suffit d'inscrire le chemin complet du fichier
| (incluant son nom) dans l'adresse des hyperliens locaux
| (c'est-à-dire dont la cible est à l'intérieur du document).
|
| Les hyperliens "locaux" utilisent la
| propriété "subaddress" d'un hyperlien et quand la
| propriété "Address" n'est pas à blanc, le chemin présent
| dans l'url de la propriété "Répertoire Web" du document
| n'est pas utilisée.
|
| Donc, il suffit de remplir cette propriété (Address) par
| le "fullname" du document pour que tout fonctionne bien.
|
| Voici le code que j'ai fait en VBA très rapidement
|
| Sub liens_locaux()
| 'Cette macro remplace l'adresse pour tous les hyperliens
| locaux dont la "sub adres" n'est pas à blanc (ex si elle
| commence par "_Toc")
| 'par le chemin complet du document
| 'Il reste à vérifier s'il y a moyen de ne pas utiliser le
| chemin complet en dur mais plutôt un
| 'code d'adressage qui serait équivalent au chemin du
| document lors de la résolution de l'adresse
| '
| 'J'ai essayé .. , espace, @, # ... sans succès
| 'Pour bien voir l'impact, il faut consulter la structure
| de l'objet document en ajoutant
| 'Un espion sur activedocument
| 'Voir ensuite Hyperlinks.Item1, Item2, etc
| 'Ou utiliser "Basculer code champ" dans le menu contextuel
| qui apparaît avec un clic bouton droit sur l'hyperlien
|
|
| For Each hl In ActiveDocument.Hyperlinks
|
| If hl.SubAddress <> "" Then
| hl.Address = ActiveDocument.FullName
| 'Alternative possible si une version du document
| est déjà dans le répertoire ciblé
| 'hl.address = BuiltInDocumentProperties("Hyperlink base")
| & activedocument.name
|
| End If
| Next hl
|
| End Sub
|| -----Message d'origine-----
|| Bonjour Pierre,
||
|| Je pense qu'effectivement, le problème vient du
| répertoire web indiqué dans
|| le résumé...
|| L'adresse mise ici renvoie TOUS les liens du document à cet endroit,
|| y.c. les liens de la table des matières. Donc, cette info est
|| prioritaire sur le commutateur l.
||
|| Pour l'instant, je n'ai pas la solution, j'ignore s'il y en a une,
|| mais j'y réfléchis.... ;-) Enfin, j'espère que je ne suis pas seule
|| à réfléchir !!! ;-))
||
|| nuindacil
|| mvp word
|| http://faq.ms.word.free.fr
||
|| Pierre wrote:
||| Bonjour,
|||
||| Ce message vient précisé celui posté hier, le 8 sept 2003
||| 12:58 "Prob hyperlien en erreur dans table des matières"
|||
||| J'utilise Word 2000 et je mets une adresse url
||| genre "http://intranet/depot/" dans la
||| propriété "Répertoire Web" du document qui contient des
||| hyperliens vers d'autres documents présents dans le dépôt
||| intranet mentionnés. Les hyperliens vers les documents
||| présents dans ce dépôt fonctionnent bien mais les
||| hyperliens vers d'autres sections à l'intérieur même du
||| document ne fonctionnent plus.
|||
||| Par exemple, les hyperliens créés automatiquement par la
||| création de la table des matières sont en erreurs.
| Quand
||| je clique sur un des items de la table des matières
||| j'obtiens le message "Impossible de télécharger les
||| données demandées".
|||
||| Pourtant en regardant le code de champ tout semble beau
||| ´
||| {HYPERLINK l _Toc50871380} (le commutateur l indique
||| qu'il s'agit d'un lien interne)
|||
||| Est-ce que le fait d'utiliser la propriété (Fichier >
||| Propriétés > Résumé : Répertoire Web) interdit
||| l'utilisation de lien intra-document ! Ce serait bien
||| étrange.
|||
||| Merci d'avance à ceux qui voudront bien nous aider.
|||
||| Salutations
|||
||| Pierre-Yves (Québec)
||
||
|| .

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Pierre-Yves,

Oui, je pensais bien à un truc comme ça, mettre le chemin complet... mais
effectivement, fallait une macro, sinon, on n'en finit pas (anacoluthe va
être content... ;-)))

Je laisse anacoluthe ou guy homologuer ton code, et celui-ci finira dans la
faq !!! ;-))))

Merci à toi pour ce retour d'info,

nuindacil

Pierre-Yves wrote:
| Bonjour Nuindacil et les autres aidants éventuels,
|
| Je crois que j'ai trouvé une solution assez simple pour
| résoudre mon problème.
|
| Il suffit d'inscrire le chemin complet du fichier
| (incluant son nom) dans l'adresse des hyperliens locaux
| (c'est-à-dire dont la cible est à l'intérieur du document).
|
| Les hyperliens "locaux" utilisent la
| propriété "subaddress" d'un hyperlien et quand la
| propriété "Address" n'est pas à blanc, le chemin présent
| dans l'url de la propriété "Répertoire Web" du document
| n'est pas utilisée.
|
| Donc, il suffit de remplir cette propriété (Address) par
| le "fullname" du document pour que tout fonctionne bien.
|
| Voici le code que j'ai fait en VBA très rapidement
|
| Sub liens_locaux()
| 'Cette macro remplace l'adresse pour tous les hyperliens
| locaux dont la "sub adres" n'est pas à blanc (ex si elle
| commence par "_Toc")
| 'par le chemin complet du document
| 'Il reste à vérifier s'il y a moyen de ne pas utiliser le
| chemin complet en dur mais plutôt un
| 'code d'adressage qui serait équivalent au chemin du
| document lors de la résolution de l'adresse
| '
| 'J'ai essayé .. , espace, @, # ... sans succès
| 'Pour bien voir l'impact, il faut consulter la structure
| de l'objet document en ajoutant
| 'Un espion sur activedocument
| 'Voir ensuite Hyperlinks.Item1, Item2, etc
| 'Ou utiliser "Basculer code champ" dans le menu contextuel
| qui apparaît avec un clic bouton droit sur l'hyperlien
|
|
| For Each hl In ActiveDocument.Hyperlinks
|
| If hl.SubAddress <> "" Then
| hl.Address = ActiveDocument.FullName
| 'Alternative possible si une version du document
| est déjà dans le répertoire ciblé
| 'hl.address = BuiltInDocumentProperties("Hyperlink base")
| & activedocument.name
|
| End If
| Next hl
|
| End Sub
|| -----Message d'origine-----
|| Bonjour Pierre,
||
|| Je pense qu'effectivement, le problème vient du
| répertoire web indiqué dans
|| le résumé...
|| L'adresse mise ici renvoie TOUS les liens du document à cet endroit,
|| y.c. les liens de la table des matières. Donc, cette info est
|| prioritaire sur le commutateur l.
||
|| Pour l'instant, je n'ai pas la solution, j'ignore s'il y en a une,
|| mais j'y réfléchis.... ;-) Enfin, j'espère que je ne suis pas seule
|| à réfléchir !!! ;-))
||
|| nuindacil
|| mvp word
|| http://faq.ms.word.free.fr
||
|| Pierre wrote:
||| Bonjour,
|||
||| Ce message vient précisé celui posté hier, le 8 sept 2003
||| 12:58 "Prob hyperlien en erreur dans table des matières"
|||
||| J'utilise Word 2000 et je mets une adresse url
||| genre "http://intranet/depot/" dans la
||| propriété "Répertoire Web" du document qui contient des
||| hyperliens vers d'autres documents présents dans le dépôt
||| intranet mentionnés. Les hyperliens vers les documents
||| présents dans ce dépôt fonctionnent bien mais les
||| hyperliens vers d'autres sections à l'intérieur même du
||| document ne fonctionnent plus.
|||
||| Par exemple, les hyperliens créés automatiquement par la
||| création de la table des matières sont en erreurs.
| Quand
||| je clique sur un des items de la table des matières
||| j'obtiens le message "Impossible de télécharger les
||| données demandées".
|||
||| Pourtant en regardant le code de champ tout semble beau
||| ´
||| {HYPERLINK l _Toc50871380} (le commutateur l indique
||| qu'il s'agit d'un lien interne)
|||
||| Est-ce que le fait d'utiliser la propriété (Fichier >
||| Propriétés > Résumé : Répertoire Web) interdit
||| l'utilisation de lien intra-document ! Ce serait bien
||| étrange.
|||
||| Merci d'avance à ceux qui voudront bien nous aider.
|||
||| Salutations
|||
||| Pierre-Yves (Québec)
||
||
|| .

Guy Moncomble

11/09/2003 à 10:21

Bonjour à tous,
dans le message <%,

| Je savais bien que Guy n'allait pas manquer d'y ajouter un peu
| d'épices !!!

Du moment que personne ne me met un pain (:-$

| J'attends quand même pour la version définitive !!! :-)))
|
| nuindacil

Tu as raison ! tout cela ne fonctionne ni dans les en-têtes, pieds de
page ni dans les zones de texte et encore moins dans les notes de bas de
page !
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

Pierre-Yves Jamoulle

11/09/2003 à 17:21

Bonjour à tous,

Merci pour vos interventions rapides et précises.

ATTENTION Je viens de me rendre compte qu'il y a un petit
problème supplémentaire à corriger. En effet, si parmi
les liens du document il y a un lien vers un SIGNET d'un
document externe et non vers un document externe seul, la
macro proposée va écraser l'adresse du document externe
(car l'utilisation du signet implique l'utilisation de
la "subaddress").

Solution : Il faut donc vérifier deux choses (pour
détecter que le lien est vraiment local)
1 que la propriété "subaddress" n'est pas vide
ET 2 que la propriété "address", elle, est bien vide!
Alors tout va bien

Dans le code

on remplace donc

If Lien.SubAddress <> "" Then

Par

If Lien.SubAddress <> "" AND Lien.Address = "" Then

Merci encore à Guy, Nuindacil et Anacoluth
Pour leur aide précieuse.

Concernant la question de Guy sur l'effet réseau :
Ici nous utilisons des répertoires sur le réseau et tout
va très bien. Mieux, nous combinons des répertoires Web
(via http://intranet/...) et réseaux genre SB4
CadreNormatif... et tout va très bien maintenant.

PS. Petite curiosité personnelle, à quoi correspondent
vos surnoms Nuindacil et Anacoluth ?

Merci et bonne journée

-----Message d'origine-----
Bonjour à tous,
dans le message <647001c377ad$405cb190$,
Pierre-Yves [], a

| Bonjour Nuindacil et les autres aidants éventuels,
|
| Je crois que j'ai trouvé une solution assez simple pour
| résoudre mon problème.

Même si l'on peut s'en passer, c'est effectivement très
simple.

Juste un complément : si le répertoire du document
change, tu es ramené

au problème précédent. Il faut donc faire une macro
automatique à

l'ouverture du document. Je me suis permis de réécrire
cette macro et au

passage j'en ai ajouté une pour lister les liens à la fin
du document.

============
Option Explicit

Sub ListeHyperlink()
Dim aHyperlink, count As Integer, Debut As Long, Fin As
Long

ActiveDocument.Bookmarks("endofdoc").Select
Debut = Selection.Range.Start
Selection.InsertAfter "Lien;Adresse;Sous-adresse"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
For Each aHyperlink In ActiveDocument.Hyperlinks
count = count + 1
Selection.InsertAfter "Hyperlink #" & count & ";"
Selection.InsertAfter aHyperlink.Address & ";"
Selection.InsertAfter aHyperlink.SubAddress & ";"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
Next aHyperlink
Selection.Collapse wdCollapseEnd
Fin = Selection.Range.End
ActiveDocument.Range(Debut, Fin).Select
Selection.ConvertToTable ";", count, 3
ActiveDocument.Tables(1).AutoFormat
Format:=wdTableFormatGrid8,

AutoFit:=True
End Sub

Sub AutoOpen()
'Macro écrite par Pierre-Yves Jamoulle
'Impérativement éxécutée au démarrage, le répertoire peut
avoir changé

Dim Lien As Hyperlink
For Each Lien In ActiveDocument.Hyperlinks
'Les liens locaux ont normalement une adresse vide
'et une sous-adresse non vide.
If Lien.SubAddress <> "" Then
'On ne peut travailler que sur SubAddress : le lien a
peut-être été

modifié.
'Pour conserver l'indépendance par rapport à
Fichier/Propriétés/Répertoire Web
'on met le chemin absolu dans l'adresse.
Lien.Address = ActiveDocument.FullName
End If
Next Lien
End Sub

Au suivant ... avec une question subsidiaire : que se
passe-t'il si les

répertoires sont des répertoires réseau (je suis ignare
en la matière) ?

============
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de
pire en pire. Se

faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

.

Bonjour à tous,

Merci pour vos interventions rapides et précises.

ATTENTION Je viens de me rendre compte qu'il y a un petit
problème supplémentaire à corriger. En effet, si parmi
les liens du document il y a un lien vers un SIGNET d'un
document externe et non vers un document externe seul, la
macro proposée va écraser l'adresse du document externe
(car l'utilisation du signet implique l'utilisation de
la "subaddress").

Solution : Il faut donc vérifier deux choses (pour
détecter que le lien est vraiment local)
1 que la propriété "subaddress" n'est pas vide
ET 2 que la propriété "address", elle, est bien vide!
Alors tout va bien

Dans le code

on remplace donc

If Lien.SubAddress <> "" Then

Par

If Lien.SubAddress <> "" AND Lien.Address = "" Then

Merci encore à Guy, Nuindacil et Anacoluth
Pour leur aide précieuse.

Concernant la question de Guy sur l'effet réseau :
Ici nous utilisons des répertoires sur le réseau et tout
va très bien. Mieux, nous combinons des répertoires Web
(via http://intranet/...) et réseaux genre SB4
\CadreNormatif... et tout va très bien maintenant.

PS. Petite curiosité personnelle, à quoi correspondent
vos surnoms Nuindacil et Anacoluth ?

Merci et bonne journée

-----Message d'origine-----
Bonjour à tous,
dans le message <647001c377ad$405cb190$a501280a@phx.gbl>,
Pierre-Yves [pierre.yves.jamoulle@saaq.gouv.qc.ca], a

| Bonjour Nuindacil et les autres aidants éventuels,
|
| Je crois que j'ai trouvé une solution assez simple pour
| résoudre mon problème.

Même si l'on peut s'en passer, c'est effectivement très
simple.

Juste un complément : si le répertoire du document
change, tu es ramené

au problème précédent. Il faut donc faire une macro
automatique à

l'ouverture du document. Je me suis permis de réécrire
cette macro et au

passage j'en ai ajouté une pour lister les liens à la fin
du document.

============
Option Explicit

Sub ListeHyperlink()
Dim aHyperlink, count As Integer, Debut As Long, Fin As
Long

ActiveDocument.Bookmarks("endofdoc").Select
Debut = Selection.Range.Start
Selection.InsertAfter "Lien;Adresse;Sous-adresse"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
For Each aHyperlink In ActiveDocument.Hyperlinks
count = count + 1
Selection.InsertAfter "Hyperlink #" & count & ";"
Selection.InsertAfter aHyperlink.Address & ";"
Selection.InsertAfter aHyperlink.SubAddress & ";"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
Next aHyperlink
Selection.Collapse wdCollapseEnd
Fin = Selection.Range.End
ActiveDocument.Range(Debut, Fin).Select
Selection.ConvertToTable ";", count, 3
ActiveDocument.Tables(1).AutoFormat
Format:=wdTableFormatGrid8,

AutoFit:=True
End Sub

Sub AutoOpen()
'Macro écrite par Pierre-Yves Jamoulle
'Impérativement éxécutée au démarrage, le répertoire peut
avoir changé

Dim Lien As Hyperlink
For Each Lien In ActiveDocument.Hyperlinks
'Les liens locaux ont normalement une adresse vide
'et une sous-adresse non vide.
If Lien.SubAddress <> "" Then
'On ne peut travailler que sur SubAddress : le lien a
peut-être été

modifié.
'Pour conserver l'indépendance par rapport à
Fichier/Propriétés/Répertoire Web
'on met le chemin absolu dans l'adresse.
Lien.Address = ActiveDocument.FullName
End If
Next Lien
End Sub

Au suivant ... avec une question subsidiaire : que se
passe-t'il si les

répertoires sont des répertoires réseau (je suis ignare
en la matière) ?

============
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de
pire en pire. Se

faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour à tous,

Merci pour vos interventions rapides et précises.

ATTENTION Je viens de me rendre compte qu'il y a un petit
problème supplémentaire à corriger. En effet, si parmi
les liens du document il y a un lien vers un SIGNET d'un
document externe et non vers un document externe seul, la
macro proposée va écraser l'adresse du document externe
(car l'utilisation du signet implique l'utilisation de
la "subaddress").

Solution : Il faut donc vérifier deux choses (pour
détecter que le lien est vraiment local)
1 que la propriété "subaddress" n'est pas vide
ET 2 que la propriété "address", elle, est bien vide!
Alors tout va bien

Dans le code

on remplace donc

If Lien.SubAddress <> "" Then

Par

If Lien.SubAddress <> "" AND Lien.Address = "" Then

Merci encore à Guy, Nuindacil et Anacoluth
Pour leur aide précieuse.

Concernant la question de Guy sur l'effet réseau :
Ici nous utilisons des répertoires sur le réseau et tout
va très bien. Mieux, nous combinons des répertoires Web
(via http://intranet/...) et réseaux genre SB4
CadreNormatif... et tout va très bien maintenant.

PS. Petite curiosité personnelle, à quoi correspondent
vos surnoms Nuindacil et Anacoluth ?

Merci et bonne journée

-----Message d'origine-----
Bonjour à tous,
dans le message <647001c377ad$405cb190$,
Pierre-Yves [], a

| Bonjour Nuindacil et les autres aidants éventuels,
|
| Je crois que j'ai trouvé une solution assez simple pour
| résoudre mon problème.

Même si l'on peut s'en passer, c'est effectivement très
simple.

Juste un complément : si le répertoire du document
change, tu es ramené

au problème précédent. Il faut donc faire une macro
automatique à

l'ouverture du document. Je me suis permis de réécrire
cette macro et au

passage j'en ai ajouté une pour lister les liens à la fin
du document.

============
Option Explicit

Sub ListeHyperlink()
Dim aHyperlink, count As Integer, Debut As Long, Fin As
Long

ActiveDocument.Bookmarks("endofdoc").Select
Debut = Selection.Range.Start
Selection.InsertAfter "Lien;Adresse;Sous-adresse"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
For Each aHyperlink In ActiveDocument.Hyperlinks
count = count + 1
Selection.InsertAfter "Hyperlink #" & count & ";"
Selection.InsertAfter aHyperlink.Address & ";"
Selection.InsertAfter aHyperlink.SubAddress & ";"
Selection.InsertParagraphAfter
Selection.Collapse wdCollapseEnd
Next aHyperlink
Selection.Collapse wdCollapseEnd
Fin = Selection.Range.End
ActiveDocument.Range(Debut, Fin).Select
Selection.ConvertToTable ";", count, 3
ActiveDocument.Tables(1).AutoFormat
Format:=wdTableFormatGrid8,

AutoFit:=True
End Sub

Sub AutoOpen()
'Macro écrite par Pierre-Yves Jamoulle
'Impérativement éxécutée au démarrage, le répertoire peut
avoir changé

Dim Lien As Hyperlink
For Each Lien In ActiveDocument.Hyperlinks
'Les liens locaux ont normalement une adresse vide
'et une sous-adresse non vide.
If Lien.SubAddress <> "" Then
'On ne peut travailler que sur SubAddress : le lien a
peut-être été

modifié.
'Pour conserver l'indépendance par rapport à
Fichier/Propriétés/Répertoire Web
'on met le chemin absolu dans l'adresse.
Lien.Address = ActiveDocument.FullName
End If
Next Lien
End Sub

Au suivant ... avec une question subsidiaire : que se
passe-t'il si les

répertoires sont des répertoires réseau (je suis ignare
en la matière) ?

============
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de
pire en pire. Se

faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

.

Guy Moncomble

11/09/2003 à 18:29

Bonjour à tous,
dans le message <18c901c37878$6ee25080$,

| Bonjour à tous,
|
| Merci pour vos interventions rapides et précises.
|
| ATTENTION Je viens de me rendre compte qu'il y a un petit
| problème supplémentaire à corriger. En effet, si parmi
| les liens du document il y a un lien vers un SIGNET d'un
| document externe et non vers un document externe seul, la
| macro proposée va écraser l'adresse du document externe
| (car l'utilisation du signet implique l'utilisation de
| la "subaddress").
|
| Solution : Il faut donc vérifier deux choses (pour
| détecter que le lien est vraiment local)
| 1 que la propriété "subaddress" n'est pas vide
| ET 2 que la propriété "address", elle, est bien vide!
| Alors tout va bien

Tsss... la première fois peut-être, mais si tu changes de répertoire,
alors comme tu as déjà fait un passage, ton adresse contient le chemin
du doc dans le répertoire précédent.
Le test à faire serait plutôt 1 ... ET 2 que la propriété address est
différente du chemin absolu actuel du document, ce qui inclut une
address éventuellement vide.
--
A+

GMO MVP Word

Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.

Edward A. Murphy, Jr.

Impossible de télécharger les données demandées

6 réponses

Veuillez sélectionner un problème