Bonjour a tous,
J'aimerai modifié plusieurs centaine de lien hyper texte en une fois.
mes recherches sur le forum m'ont amené a trouver plusieurs macros:
Sub ModifierLien()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = "G" & Mid(h.Address, 2)
Next
End Sub
ou
Sub ChangeHyperlinks()
Dim h As Hyperlink, ad$, txt$
For Each h In ActiveSheet.Columns("B").Hyperlinks
ad = h.Address
txt = h.Parent.Offset(, -1) & "\"
If txt Like "Test*" Then
ad = Replace(ad, "AncienDossier", "Test")
ad = Replace(ad, "Demos\", txt)
ElseIf txt Like "Docu*" Then
ad = Replace(ad, "AncienDossier", "Docu")
ad = Replace(ad, "Doc\", txt)
End If
h.Parent.Hyperlinks.Add h.Parent, ad
Next
End Sub
actuellement j'ai un lien du type:
\\Srvdc1\commun\HOT LINE\demande intervention
et j'aimerai :
\\192.1.1.9\HOT LINE\demande intervention.
Pouvez m'aidez svp?
Merci
J'aimerai modifié plusieurs centaine de lien hyper texte en une fois.
mes recherches sur le forum m'ont amené a trouver plusieurs macros:
Sub ModifierLien()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = "G" & Mid(h.Address, 2)
Next
End Sub
ou
Sub ChangeHyperlinks()
Dim h As Hyperlink, ad$, txt$
For Each h In ActiveSheet.Columns("B").Hyperlinks
ad = h.Address
txt = h.Parent.Offset(, -1) & "\"
If txt Like "Test*" Then
ad = Replace(ad, "AncienDossier", "Test")
ad = Replace(ad, "Demos\", txt)
ElseIf txt Like "Docu*" Then
ad = Replace(ad, "AncienDossier", "Docu")
ad = Replace(ad, "Doc\", txt)
End If
h.Parent.Hyperlinks.Add h.Parent, ad
Next
End Sub
actuellement j'ai un lien du type:
\\Srvdc1\commun\HOT LINE\demande intervention
et j'aimerai :
\\192.1.1.9\HOT LINE\demande intervention.
Pouvez m'aidez svp?
Merci