RECH/REMPLACER 1 partie lien hypertexte [Résolu]

[stopweb]

Bonjour, j'ai créé un fichier excel dont certaines cellules (300 env.) pointes via un lien hypertexte vers un dossier et un autre fichier excel (à chaque fois différents).
ex : la cellule B12 pointe vers file:///\\PERSO\famille\2011\interne.xls
Je vais devoir réorganiser mon dd et le chemin va changer.
je voudrais trouver une formule vb pour remplacer un partie du lien par un autre chemin.
auriez-vous une solution pour moi?
merci.

[Jean-Pierre49]

Bonjour

Directement dans Excel: Edition>remplacer pour Excel 2003

Ou en Vba Replace regarde avec

Bon courage

[stopweb]

c'eut été trop simple, le ctrl H ne fonctionne pas car ce qui s'affiche dans la cellule n'est pas le lien hypertexte mais un texte.
merci.

[Jean-Pierre49]

En effet trop simple

Une piste

Code :

1
2
3
4
5
6
7
Sub ModifLienHyperTexte()
Dim Lien As Hyperlink
 
For Each Lien In ThisWorkbook.Sheets("Feuil1").UsedRange.Hyperlinks
   Lien.Address = Replace(Lien.Address, "AncienTexte", "NouveauTexte")
Next
End Sub

tu dis

[stopweb]

il ne se passe rien...
si je veux changer une partie du lien comment quelle syntaxe dois-je utiliser ?

ex : file:///\\PERSO\famille\2011\interne.xls

Lien.Address = Replace(Lien.Address, "file:///\\PERSO\famille\2011\*", "file:///\\SERVEUR\2011\*")
est-ce que ca fonctionnerait ?

merci

[Jean-Pierre49]

Lien.Address = Replace(Lien.Address, "file:///\\PERSO\famille\2011\*", "file:///\\SERVEUR\2011\*")

Pourquoi l'*

Essaye en passant par des Variables

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ModifLienHyperTexte()
 
Dim Lien As Hyperlink
Dim AncienTexte As String
Dim NouveauTexte As String
 
AncienTexte = "file:///\\PERSO\famille\2011\"
NouveauTexte = "file:///\\SERVEUR\2011\"
 
For Each Lien In ThisWorkbook.Sheets("Feuil1").UsedRange.Hyperlinks
   Lien.Address = Replace(Lien.Address, AncienTexte, NouveauTexte)
Next
End Sub

Tu dis

A priori le

Code :

file:///

cause problème et pour cause

essaye avec

Code :

1
2
AncienTexte = "\\PERSO\famille\2011\"
NouveauTexte = "\\SERVEUR\2011\"

ça marche chez moi
tu dis

[stopweb]

alors c'est dejà mieux mais bizarre cela fonctionne sur des liens fraichement créés mais pas sur les anciens...
une idée ?

[Jean-Pierre49]

Envoi un de ces liens sur un classeur pour voir

[stopweb]

au départ je pensais que ça venait des cellules fusionnées mais non rien à voir ou du fait que les liens avaient été déjà ouverts mais non

bon j'ai refait une copie de mon fichier et là ton code fonctionne... je ne comprends pas pourquoi ca bloque sur le première copie mais bon je vais m'en sortir comme ça.

merci beaucoup de ton aide.