Modification d'une partie d'un lien hypertexte

Bonjour,

Suite à un crash de PC les liens hypertextes d'un fichier excel ont été modifié et j'aimerais savoir si il serait possible de les modifier à l'aide d'une macro.

J'aimerais qu'il fasse une vérification de chaque lien (colonne B) et si le lien redirige vers C:\... il faudra le remplacer par \\s013....

C:\Users\toto\Appdata\Roaming\Microsoft\Excel\Listing CR\...
\\S013\Groupes\milestone\Change Request\Listing CR\...

J'ai utilisé cette macro mais il manque la vérification des liens pour ne pas qu'il me modifie les liens qui sont déjà bon.

Code:

---

1 2 3 4 5 6

Sub ModifierLienPlage() Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 38) Next End Sub

---

Bonjour,

Code:

---

1 2 3 4 5 6

Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks If UCase(Left(h.Address, 2)) = "C:" Then h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 38) End If Next

---

Merci pour ton aide !

Bonjour,

Je viens à nouveau vers vous pour un problème de liens hypertextes corrompus.
Sur plus de la moitié des liens il manque une partie du chemin pour accéder au fichier.

Quand je fais un clic droit et modifier le lien hypertexte j'ai ceci : Listing%20CR\MW14023%20modif%20brûleur%20OCM.xls
J'aimerais ajouter cette partie du chemin aux liens existants : \\s013\Groupes\milestone\Change Request\

J'ai essayé avec cette macro mais ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test()   Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks If UCase(Left(h.Address, 2)) = "Li" Then h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 1) End If Next   End Sub

---

Auriez-vous une solution ?