Modification de lien hypertexte [masse] Excel

Résolu/Fermé
Xrag - 1 juin 2012 à 11:33
 Didier - 25 janv. 2021 à 18:09
Bonjour,

Donc voilà, je suis actuellement en stage dans une entreprise et j'ai besoin de modifier les liens hypertexte dans plusieurs millier de fichier Excel... Donc dans les liens j'ai des %20 qui correspondent à des espaces et j'ai besoin de les remplacer par des _ ... Je risque de passer ma vie là dessus et j'aimerais trouver un moyen rapide de tout modifier !

Merci d'avance de vos réponses ;)


10 réponses

Bonjour,

Au cas où, j'ai eu moi-même ce problème de liens aà modifier en masse.

Cette macro m'a permis d'arriver à mes fins.

Attention cependant parfois la mise en page a été modifiée sur quelques cellules.

Sub Modifier_lien()


Dim Doc As Workbook

Dim Cell As Range

Dim OldStr As String

Dim NewStr As String

Dim OldHp As String

Dim NewHp As String


'Chemin à modifier

OldStr = "\\Ogidoc1\Doc OGI\"

NewStr = "\\ogi.local\racineogi\data\OGIDOC\Doc ogi\"


Application.Calculation = xlManual


Set Doc = Application.ActiveWorkbook


For Each Cell In Selection


'Verifie si la cellule contient des liens hypertexte

If Cell.Hyperlinks.Count > 0 Then



'Recupère l'adresse du lien sous forme de chaine

OldHp = Cell.Hyperlinks(1).Address



'Remplace l'ancienne chaine par la nouvelle

NewHp = Replace(OldHp, OldStr, NewStr)



'Supprime tous les liens hypertexte de la cellule

Cell.Hyperlinks.Delete



'Affecte le nouveau lien hypertexte

Doc.ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=NewHp



End If


Next Cell


Application.Calculation = xlAutomatic


End Sub
25
Merci beaucoup, cette macro m'a sauvé la vie :)
0
Merci ! Tu viens de me faire gagner un temps fou !
0
Merci ! c'est exatement ce que je cherchais. Tu viens de me sauver ^^
0
Je vous remerci beaucoup la macro ma bien aider à récupérer mon fichier
0
Merci merci merci. 5 ans après ta macro sauve toujours des gens !
0