Discussion :

[shimuno]

Bonjour

Pourriez vous m'aider à résoudre le problème suivant ?

Soit un fichier Word avec des liens vers des fichiers Excel, des liens hypertextes et...des liens hypertextes donnés par des liaisons vers des fichiers Excel. Oui, c'est un peu compliqué.

J'aimerais supprimer toutes les liaisons autres que les liens hypertextes. Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub RemoveHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type <> wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub

Ca marche bien, sauf pour les liens hypertextes donnés par les liaisons vers les fichiers Excel, qui disparaissent. Avez vous une idée de petite manip ?

Merci beaucoup.

[Sepia]

Salut Shimuno,


a la lecture de code de macro, ça semblait OK ==> j'ai effectué le test et ton code fonctionne bien : tu n'effectues pas la rupture de liaison pour les liens hypertextes. Vérifies que tu as bien des liens hypertextes et pas autre chose par hasard. Moi j'ai juste créer une URL vers http://www.dvp.com et un renvoi sur un signet. Après l'exécution de la macro, le lien hypertexte est toujours actif mais le renvoi sur le signet n'est plus actif.

@+

[shimuno]

Ah, oui, ça serait peut être ça. Voila ce que j'ai :
- un lien hypertexte dans une cellule d'un tableau Excel
- ce tableau Excel est collé avec liaison (format HTML) dans le document Word.

Et tout saute quand je lance la macro.

Une idée ? Peut être que je peux coller le tableau Excel ou le lien differemment, ou peut être dire à la macro de ne pas vérifier ces liens...(aucune idée comment mettre ça en place).

[Sepia]

Salut,

En effet, c'est cela, ton lien hypertexte étant lui-même inclus dans ton collage avec liaison, la rupture de la liaison se reporte au niveau du lien hypertexte et comme le lien hypertexte appartient finalement à Excel et non à Word, c'est difficile de le détecter dans Word

La seule solution que je vois est que tu récupères dans Excel tes liens, que tu appliques ta macro et que tu effectues un remplacement global sur le texte du lien par le lien. Ce n'est pas une mince affaire (car le le remplacement global nécessite la prise en compte des problèmes de doublons, des libellés inclus dans d'autres...). Mais c'est possible mais je ne suis pas sûr que ce soit raisonnable (mais je ne connais pas ton contexte et si le jeu en vaut la chandelle).

Tiens-nous au courant et de toute façon, les membres du forum essaieront de t'aider.

@+

[shimuno]

Bon alors j'ai fini par trouver une solution : associer dans le fichier Excel le lien hypertexte à une image. Pour des raisons surprenantes, la macro précitée n'enlève pas alors pas le lien hypertexte de l'image.

Si ça peut servir à quelqu'un...

[Sepia]

Salut,

en effet, ça peut être utile à plein d'autres.

Merci

@+