Remplacer une partie des liens hypertextes

GADENSEB · 21 Mai 2014

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 · 23 Mai 2014

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 · 26 Mai 2014

Re : Remplacer une partie des liens hypertextes

J'ai créer une macro :

Ca marche nickel

Code:

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

Remplacer une partie des liens hypertextes

GADENSEB

XLDnaute Impliqué

Paritec

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

Discussions similaires