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

Remplacer une partie des liens hypertextes

GADENSEB

XLDnaute Impliqué

Paritec

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency