Modifier Hyperliens Excel

[Nemesis538]

Bonjour, j'ai un problème avec Excel 2003. Nous venons de faire la mise à jour d'Office 2000 vers Office 2003, et ce faisant, cela à modifier tout les hyperliens en remplaçant les espaces par %20. J'ai trouvé comment empêcher cette modification de se reproduire, mais il me reste tout de même plusieurs milliers de liens à changer. Je voulais savoir s'il y avait moyen de tous les modifier d'un coup, soit par formule ou Find and Replace, etc.

Merci

 

[Tibo]

Re : Modifier Hyperliens Excel

Bonsoir et bienvenue,

Sans certitude, mais à essayer :

Edition - Remplacer (ou CTRL H) : %20 - par - espace

Essaye et dis nous

Bonne soirée


@+

 

[Nemesis538]

Re : Modifier Hyperliens Excel

Non ça ne fonctionne pas, j'avais déja tenté cette idée.

 

[JCGL]

Re : Modifier Hyperliens Excel

Bonjour à tous,
Salut Tibo,

Bienvenue à Nemesis538,

Peux-tu essayer avec :

Sub Test()
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="%20", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Range("A1").Select
End Sub

A appeler par Alt F8 et Exécuter

A+

 

[Nemesis538]

Re : Modifier Hyperliens Excel

Salut, j'ai essayé ce que tu m'as dit, mais ça ne fonctionne toujours pas, je t'envoie un fichier contenant deux liens problématiques. Peux-tu vérifier pour voir si tu peux en faire quelque chose?

Merci

 

[JCGL]

Re : Modifier Hyperliens Excel

Re,

Oui mais je suis sous XL 2003 donc j'ai bien bien des liens hyper textes

Peux-tu essayer avec :

Sub Test()
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="%20", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows
Range("A1").Select
End Sub

A+

 

[Nemesis538]

Re : Modifier Hyperliens Excel

Cette formule modifie le contenu des cellules, n'y a-t-il pas moyens de modifier le contenu de l'hyperlien?

 

[Pierrot93]

Re : Modifier Hyperliens Excel

Bonsoir Nemesis, Jean Claude, Tibo

essaye peut être comme ci dessous, également sous 2003, pas de problème à priori...

Option Explicit
Sub test()
Dim x, z As String, i As Byte
x = Split(Range("A1").Hyperlinks(1).Address, "%20")
For i = LBound(x) To UBound(x)
    z = z & x(i) & " "
Next i
Range("A1").Hyperlinks(1).Address = z
End Sub

si ca marche tu dois pouvoir faire une boucle "for each" pour modifier tous les liens d'un classeur, voir plusieurs..


bonne soirée
@+

Edition avais oublié de remplacer par des espaces, pas sur qu'il soit obligatoire de supprimer le dernier, a voir...

 

[Pierrot93]

Re : Modifier Hyperliens Excel

Re

s'il faut gérer le dernier espace :

Option Explicit
Sub test()
Dim x, z As String, i As Byte
x = Split(Range("A3").Hyperlinks(1).Address, "%20")
For i = LBound(x) To UBound(x)
    z = z & x(i) & " "
Next i
Range("A3").Hyperlinks(1).Address = Left(z, Len(z) - 1)
End Sub

@+

 

[Nemesis538]

Re : Modifier Hyperliens Excel

Ça ne fonctionne toujours pas.

 

[JCGL]

Re : Modifier Hyperliens Excel

Re,
Salut Pierrot 🙂 ,

Il semblerait que le Path soit tronqué entre XL 2K et XL 2003.

Tout cela dépasse mes maigres compétences.

Désolé Nemesis538, mais je dois abdiquer.

Au plaisir de te croiser sur XLD ou ailleurs 🙂

Edition : peut-être serait-il judicieux de nous envoyer ton fichier sous XL 2K ???

 

[JCGL]

Re : Modifier Hyperliens Excel

Re,
Salut Tatiak 🙂 ,

Ne me dis pas que c'est pas vrai qu'en plus des Pictures, tu es très fort un Hyperlinks 😡

Au plaisir de te croiser 😉

 

[MJ13]

Re : Modifier Hyperliens Excel

Bonjour à tous.

Pemièrement bienvenu sur ce forum à nemesis où tu as pu le contstater, il y a beaucoup de personnes compétentes voir très.

Ce post s'adresse plus particulièrement à Nemesis.

J'ai trouvé comment empêcher cette modification de se reproduire

Ici nous sommes sur un site d'entraide, donc le mieux est de dire aux autres participants comment as-tu résolu le problème?

C'est comme cela que tout le monde peut apprendre car il ne faut jamais oublié que nous sommes bénévoles.

 

[Nemesis538]

Re : Modifier Hyperliens Excel

Ça ne fonctionne toujours pas ici mais merci beaucoup, vous êtes. Je vous envoie ce que j'ai trouvé sur le site de microsoft.

Comment réparer les hyperliens sous Office 2003

1. Ouvrir Microsoft Word 2003
2. Sous le menu Outils Cliquez sur Options
3. Cliquez sur l’onglet « Général » puis sur le bouton « Options Web »
4. Cliquez sur l’onglet « Fichiers » puis décocher l’option « Mettre à
jour les liens lors de l’enregistrement ».
5. Cliquez sur OK jusqu’à revenir à la page vierge de Word.

 

[MJ13]

Re : Modifier Hyperliens Excel

Re bonjour Nemesis

En effet chez moi c'est décocher, c'est pour cela que je ne perd pas mes liens.
sinon pour ravoir des liens écrits dans la colonne A en dur (ex: il est inscrit c:\mon fichier.xls dans la cellule A2 et en dessous) voici une macro

Sub lien_hypertexte()
'
' lien_hypertexte Macro
' Macro enregistrée le 21/11/2006 par MJ
'
'
' Stop
 Dim l As Integer, maplage As Range
Set maplage = Range("A2:A" & Range("A65536").End(xlUp).Row)
For l = 2 To maplage.Rows.Count + 1
Range("a" & l).Select
nomlien = ActiveCell.Text
 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=nomlien
    'MaPlage(l, 1).Value = CDate(Replace(MaPlage(l, 1).Value, "_", "/"))
Next l
End Sub