Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

file:///

cause problème et pour cause

essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ça marche chez moi
tu dis