Sub ModifierLien()
Dim h As Hyperlink, AdresOld$, AdresNew$
AdresOld$ = "\\Srvdc1\commun\HOT LINE\demande intervention"
AdresNew$ = "\\192.1.1.9\HOT LINE\demande intervention"
For Each h In ActiveSheet.Hyperlinks
If h.Address = AdresOld$ Then
h.Address = AdresNew$
h.TextToDisplay = AdresNew$
End If
Next
End Sub
Sub ModifierLien()
Dim H As Hyperlink, AdresOld$, AdresNew$, AdresH$, AdresN$, LenOld%
AdresOld$ = "\\srvdc1\commun\": LenOld = Len(AdresOld$)
AdresNew$ = "\\192.1.1.9\"
'
For Each H In ActiveSheet.Hyperlinks
AdresH$ = H.Address
If LCase(Left(AdresH$, LenOld)) = AdresOld$ Then
AdresN$ = AdresNew$ & Mid(AdresH$, LenOld + 1)
H.Address = AdresN$
H.TextToDisplay = AdresN$
End If
Next
End Sub