Recherche et remplace Lien Hypertexte

Bonsoir ThierryM, le Forum.

Peut-être une solution par VBA...
Soit en A1 l'ancien nom du serveur, en B1 le nouveau nom. Tu lances la procédure ci-dessous, collée dans un module de code général (comme Module1 par exemple) .

Sub TraitementLiens()
Dim L As Hyperlink
Dim MotRech As String, MotRempl As String
      'Mot à rechercher : saisi en cellule A1
      MotRech = Range('A1').Value
      'Mot de remplacement : saisi en cellule B1
      MotRempl = Range('B1').Value
      'Remplacer le mot dans chaque lien de la feuille
      For Each L In ActiveSheet.Hyperlinks
            L.Address = Replace(L.Address, MotRech, MotRempl)
      Next L
End Sub

Cliquez pour agrandir...

Merci de ton aide...exactement ce dont j'avais besoin !!!!!!

Message édité par: Dan, à: 13/06/2005 13:35

Bonjour,

Bon je ne sais pas si tu reviendras sur ce fil mais ce sera pour les autres.
J'ai été également confronté à ce pb et d'ailleurs ZON m'avait pas mal dépanné en faisant une
véritable appli la dessus.
Mais depuis j'ai aussi découvert cette solution dont je te fais part :

- Ouvre ton fichier
- Vas dans menu / fichier / Propriétés
- Dans 'répertoire Web', tu places l'adresse complète du serveur jusqu'à ton fichier à lire.
- Puis dans tous tes liens hypertexte, il te suffit de ne plus reprendre l'adresse du serveur mais
seulement l'adresse dans le fichier où tu lis tes valeurs.

En cas de changement futur, il suffira d'aller dans les propriétés du fichier et changer uniquement
le nom du serveur.

Bien entendu, cela suppose que le fichier ne fait appel qu'à un seul serveur.

🙂

Re : Recherche et remplace Lien Hypertexte

Hello !
Je fais remonter le sujet car il m'intéresse beaucoup.
La macro proposée plus haut tourne MAIS j'ai quelque soucis avec les slash et anti-slash
Je ne sais lesquels choisir. Pafois l'adresse des fichiers sur le réseau apparaissent avec des slash et parfois antislash

Un peu d'aide serait la bienvenue car je suis un peu perdu...