Re : Modifier liens hypertexte
Bonjour,
Malgré le manque de réponse sur ce post
, j'ai trouvé la solution à mon problème par un autre moyen.
Je vous donne quand même la solution pour les personnes intéressées pour clôturer le post :
Option Explicit
Sub macro()
Dim chemin_a_remplacer As String
Dim nouveau_chemin As String
Dim old_link As String
Dim old_text As String
Dim x As Range
chemin_a_remplacer = "xxxx" 'partie du chemin à remplacer
nouveau_chemin = "yyyyy" 'le nouveau chemin
For Each x In Selection.Cells
If x.Hyperlinks.Count > 0 Then
old_link = x.Hyperlinks(1).Address
old_text = x.Hyperlinks(1).TextToDisplay 'si nécessaire
x.Hyperlinks(1).Address = Replace(old_link, chemin_a_remplacer, nouveau_chemin)
x.Hyperlinks(1).TextToDisplay = Replace(old_text, chemin_a_remplacer, nouveau_chemin) 'si nécessaire
Else
End If
Next x
End Sub
Nota : faire attention caractères exact à indiquer dans les chemins (par ex : / au lieu de \ et %20 pour les espace).
Pour trouver le chemin existant EXACT dans: clique droit sur le lien --> modifier le lien.