Rechercher/Remplacer dans lien hypertexte

[C@thy]

Bonjour,

j'ai des liens hypertexte en colonne C (à partir de C2)
dy type : "\\fidji\MIS-MEDIATEUR\Mediatio\REPONSES\Rep2009\R09-0806-Pittiou.doc"

Il y a un grand nombre de lignes.

Comment faire pour remplacer (par macro) \\fidji\MIS-MEDIATEUR par \\Panteleria\MEDIATEUR 😕

Merci pour votre aide et bonne journée d'automne (très ensoleillée)

Bises

Edit : Chaque utilisateur a créé un certain nombre de fichiers sur ce modèle, avec les liens toujours dans une colonne (pas toujours la même)

C@thy

 

[Guest]

Re : Rechercher/Remplacer dans lien hypertexte

Bonjour Cathy,

La macros suivante que je n'ai pu testé puisque je n'ai pas ton fichier, est sensée regarder tous les lien de la feuille active pour faire le remplacement si besoin est.

Sub RemplacerLeinHyperTextes()
 Const oldChaine = "fidji\MIS-MEDIATEUR"
 Const newChaine = "Panteleria\MEDIATEUR"
 Dim hl As Hyperlink
 For Each hl In ActiveSheet.Hyperlinks
    If InStr(1, hl.Address, oldChaine) > 0 Then
        hl.Address = Replace(hl, oldChaine, newChaine)
    End If
 Next hl
End Sub

amicalement
A+

 

[C@thy]

Re : Rechercher/Remplacer dans lien hypertexte

Bonjour Hasco,😉

merci pour ta réponse si rapide.

J'ai testé, j'ai une erreur sur cette ligne :

hl.Address = Replace(hl, oldChaine, newChaine)
(propriété ou méthode non gérée par cet objet)
j'ai excel 2003

Bises et merci

C@thy

 

[Pierrot93]

Re : Rechercher/Remplacer dans lien hypertexte

Bonjour Cathy, Hasco

peut être une autre solution comme ceci, pour la colonne A :

Range("A2:A" & Range("A65536").End(xlUp).Row).Replace "fidji\MIS-", _
    "Panteleria\", xlPart

bon après midi
@+

 

[Pierrot93]

Re : Rechercher/Remplacer dans lien hypertexte

Re

pour la colonne de la cellule active :

Columns(ActiveCell.Column).Replace "fidji\MIS-", "Panteleria\", xlPart

@+

 

[C@thy]

Re : Rechercher/Remplacer dans lien hypertexte

Pierrot, ça ne fonctionne pas.

Hasco en pas à pas ça marche pour le 1er lien, donc on n'est pas loin...
je joins mon fichier.

Un grand merci

C@thy

 

[Pierrot93]

Re : Rechercher/Remplacer dans lien hypertexte

Re,

aarf, normal que mon code ne fonctionne pas, il agit sur le texte de la cellule... Sans précision, je pensais que l'adresse était également le texte affiché... mais de toute façon je crois bien que je ne pouvais pas procéder ainsi... désolé...

 

[C@thy]

Re : Rechercher/Remplacer dans lien hypertexte

Eh non, c'eût été trop simple!!!!

Arf! Hasco, je n'arrive plus à le faire fonctionner, pourtant je suis sûre qu'en pas à pas ça a marché une fois... grrrr....

Biz <3 (c'est censé représenter un coeur, mais bof!...)

C@thy

 

[Pierrot93]

Re : Rechercher/Remplacer dans lien hypertexte

Re

en l'absence d'Hasco, et pour me faire pardonner, modifie peut être son code ainsi :

Sub RemplacerLiensHyperTexte()
 Const oldChaine = "fidji\MIS-MEDIATEUR"
 Const newChaine = "Panteleria\MEDIATEUR"
 Dim hl As Hyperlink
 For Each hl In ActiveSheet.Hyperlinks
    If InStr(1, hl.Address, oldChaine) > 0 Then
        hl.Address = Replace(hl[B].Address[/B], oldChaine, newChaine)
    End If
 Next hl
End Sub

@+

 

[C@thy]

Re : Rechercher/Remplacer dans lien hypertexte

Yaisse!!!! Merciiiiiiiiiiiiiiii Pierrot, Hasco,

SUPERRRRRR!!!!

Bisous

C@thy

P.S. Pierrot, tu n'as rien à te faire pardonner

 

[Guest]

Re : Rechercher/Remplacer dans lien hypertexte

Re

Quel bougre d'âne fais-je parfois!🙄 Merci Pierrot😀, j'étais occupé ailleurs, une histoire de filtres.

Cathy 😉😀🙂cela devrait fonctionner maintenant. Non!?

A+++ à tous

 

[C@thy]

Re : Rechercher/Remplacer dans lien hypertexte

Hi hi hi.... Hasco se traite de bougre d'âne!!! MDR!!! (Lol)

Oui, ça marche nickel

Bizzz

C@thy