modfication de lien hypertexte

salut

j'aimerais modifier dans le chemin de tous les liens hypertexte d'une feuille excel

exemple:
c\cpg\calcul par d\pgm\frd\calcul

j'ai réussi à le faire terme par terme mais lorsqu'il faut ajouter un nouveau \ ça marche pas

merci

Salut
Je dirais que dans une macro tu fais quelque chose comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub ModifLink() Dim TheLink As Hyperlink   For Each TheLink In ThisWorkbook.Sheets("Feuil1").UsedRange.Hyperlinks 'On regarde si les 6 1er caractere du lien sont c:\cpg If UCase(Left(TheLink.Address, 6)) = UCase("c:\cpg") Then 'On modifie TheLink.Address = "d:\pgm\frd" & Mid(TheLink.Address, 7) End If Next End Sub

---

++
Qwaz