Une macro pour remplacer une partie d'une adresse hypertexte

[pascal5555]

Bonjour,

Je remercie par avance celle ou celui qui me mettra sur la route grace à une belle macro pour remplacer partiellement le contenu d'une cellule contenant un lien hyper texte

Exemple :
la colonne A contient 300 lignes de cellules contenant un lien hypertexte type \\serveur02\PARIS\test.xlsx


Mon besoin : remplacer le contenu et l'adresse du lien \\serveur02\PARIS par \\serveur02\LONDRES

Cette manip sera récurrente puisque je vais déplacer les fichiers attaché à ces liens à plusieurs reprise.
Je recherche une solution light d'autant plus que VBA et moi sommes des amis en devenir !

Merci
Pascal

 

[Jack2]

Re : Une macro pour remplacer une partie d'une adresse hypertexte

Bonjour tout le monde,

Peut être un début de solution

Sub Remplacer_Contenu_Adresse()
For i = 1 To 300
    St = Range("A" & i).Value
    St = StrReverse(St)
    St = Mid(St, InStr(St, "\") + 1, Len(St))
    St = StrReverse(St)
    St = Replace(St, "PARIS", "LONDRES")
    Range("A" & i).Value = St
Next i
End Sub

A+