Modification liens Hypertext

Salut,

tu peux sélectionner tes liens, et aller dans Edition/Remplacer.
Dans la zone "rechercher" tu mets ton nom-serveur actuel, et dans la zone
"remplacer" tu mets le futur nom...

Ca marche ?

CAP2

Non ca ne marche

Ca marche avec les valeurs mais pas avec les liens hypertext.

Laurent

Oulala !!

Ouais c'est vrai, ça change que le texte.
Je cherche mieux...

CAP2

Bonjour Laurent,

Essaie ceci :

Tu exécutes la procédure Test, en définissant les 2 chemins : Ancien et Nouveau

'------------------------
Sub Test()
ChangeLien "c:NomProjetAnalyseResultats", _
"c:NomProjetAnalyseResultatsDesTests"
End Sub
'------------------------


Sub ChangeLien(Ancien$, Nouveau$)
Dim sh As Worksheet, i&, Lien$
For Each sh In Worksheets
With sh
For i = 1& To .Hyperlinks.Count
With .Hyperlinks(i)
If Left$(.Address, 31&) = Ancien Then
Lien = Application.Substitute(.Address, Ancien, "")
.Address = Nouveau & Lien
.Parent.Value = Nouveau & Lien
End If
End With
Next i
End With
Next sh
End Sub'AC
'------------------------


Salutations!





"Laurent Malandain" <Laurent Malandain@discussions.microsoft.com> a écrit dans le message de
news:7E8DD48F-8CBB-4474-A004-CB432F0C2F67@microsoft.com...
Bonjour

J'ai des feuilles Excel qui contiennent des liens vers des fichiers visio du
genre \nom-serveurpartageschéma.vsd

Le nom de mon serveur va bientot changer
Existe-il un moyen de modifier tous les liens en changeant nom-serveur par
nouveau-nom-serveur de maniere "automatique".
Merci
LAurent Malandain