Exécution d'une macro pour toutes les feuilles d'un classeur.

[stnibedy]

Suite à un remplacement de notre serveur, mon fichier de gestion des machines comprenant plus de 200 liens ne fonctionne plus.
Effectivement les liens font références à un nom de serveur qui a changé.
J'ai pour cela créer une macro, mais celle-ci ne s'exécute que dans la feuille active.
Comment puis-je exécuter cette macro dans toutes les feuilles d'un même classeur.

La macro concernée :

Sub ChgtLien()

txt1 = "rgi01"
txt2 = "rgi05"
For Each lnk In ActiveWorkbook.Hyperlinks
If lnk.Address Like "*" & txt1 & "*" Then lnk.Address = Replace(lnk.Address, txt1, txt2)
Next

End Sub



Je vous remercie d'avance.

 

[Pierrot93]

Re : Exécution d'une macro pour toutes les feuilles d'un classeur.

Bonjour,

essaye ceci :

Option Explicit
Sub ChgtLien()
Dim ws As Worksheet, lnk As Hyperlink, txt1 As String, txt2 As String
txt1 = "rgi01"
txt2 = "rgi05"
For Each ws In ActiveWorkbook.Worksheets
    For Each lnk In ws.Hyperlinks
        If lnk.Address Like "*" & txt1 & "*" Then lnk.Address = Replace(lnk.Address, txt1, txt2)
    Next lnk
Next ws
End Sub

bon après midi
@+

 

[stnibedy]

Re : Exécution d'une macro pour toutes les feuilles d'un classeur.

Je te remercie beaucoup, testé et approuvé.

Quelle belle journée !!!