Une macro pour remplacer une partie d'une adresse hypertexte

pascal5555 · 24 Septembre 2013

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 · 24 Septembre 2013

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

Bonjour tout le monde,

Peut être un début de solution

Code:

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+

Une macro pour remplacer une partie d'une adresse hypertexte

pascal5555

XLDnaute Nouveau

Jack2

XLDnaute Occasionnel

Discussions similaires

Une macro pour remplacer une partie d'une adresse hypertexte

pascal5555

XLDnaute Nouveau

Jack2

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency