Remplacer une partie des liens hypertextes

[GADENSEB]

Bonjour le Forum

J'ai un fichier excel avec tout un tas de liens hypertextes
malheureusement ceux-ci sont pertubés

je dois remplacer la valeur


C:\Users\xxxxx xxxx\AppData\Roaming\Microsoft\Excel\ANNONCES REPONDUES\

par

..\..\Seb%20Personnel\TRAVAIL\ANNONCES%20REPONDUES\


Je n'arrive pas avec le CTRL+H

Dois-je procéder par macro ?

Merci

Bonne journée

Seb

 

[Paritec]

Re : Remplacer une partie des liens hypertextes

Bonjour Gadenseb le forum
oui je pense que c'est une solution, mais le fichier il est ou?
a+
Papou

 

[GADENSEB]

Re : Remplacer une partie des liens hypertextes

J'ai créer une macro :

Ca marche nickel

Private Sub LIENHYPERTEXTEMODIF_Click()
Dim Lien As Hyperlink
Dim AncienTexte As String
Dim NouveauTexte As String
 
AncienTexte = "C:\Users\xxxxx xxxxx\AppData\Roaming\Microsoft\Excel\ANNONCES REPONDUES\2014\"
NouveauTexte = "..\..\xxxxxxl\TRAVAIL\ANNONCES%20REPONDUES\2014\"
 
For Each Lien In ThisWorkbook.Sheets("BASE EMPLOI").UsedRange.Hyperlinks
   Lien.Address = Replace(Lien.Address, AncienTexte, NouveauTexte)
Next
End Sub

merci bonne journée