Bonjour,
Tout d'abord, je tiens à dire que je suis totalement débutant en Excel.
J'ai besoin de faire une macro qui recherche un terme dans un lien hypertext et le remplace par un autre terme.
Grace au forum, j'ai pu arrivé à ca :
Sub TraitementLiens()
Dim L As Hyperlink
Dim MotRech As String, MotRempl As String
'Mot à rechercher
MotRech = ("srv1)
'Mot de remplacement
MotRempl = ("srv2")
'Remplacer le mot dans chaque lien de la feuille
For Each L In ActiveSheet.Hyperlinks
L.Address = Replace(L.Address, MotRech, MotRempl)
Next L
End Sub
Ca fonctionne très bien sur une feuille. Du coup, la prochaine étape est d'appliquer d'un coup les modifs sur toutes les feuilles. J'ai essayé de faire une boucle avec des infos trouvé sur le forum mais sans résultats...
Pourriez-vous m'aider svp ?
Petit bonus, question stupide. Peut-on demander à ce que les modifs soient faites sur tous les fichiers excel d'un repertoire et des sous-repertoires ?
merci d'avance
Istephane
Tout d'abord, je tiens à dire que je suis totalement débutant en Excel.
J'ai besoin de faire une macro qui recherche un terme dans un lien hypertext et le remplace par un autre terme.
Grace au forum, j'ai pu arrivé à ca :
Sub TraitementLiens()
Dim L As Hyperlink
Dim MotRech As String, MotRempl As String
'Mot à rechercher
MotRech = ("srv1)
'Mot de remplacement
MotRempl = ("srv2")
'Remplacer le mot dans chaque lien de la feuille
For Each L In ActiveSheet.Hyperlinks
L.Address = Replace(L.Address, MotRech, MotRempl)
Next L
End Sub
Ca fonctionne très bien sur une feuille. Du coup, la prochaine étape est d'appliquer d'un coup les modifs sur toutes les feuilles. J'ai essayé de faire une boucle avec des infos trouvé sur le forum mais sans résultats...
Pourriez-vous m'aider svp ?
Petit bonus, question stupide. Peut-on demander à ce que les modifs soient faites sur tous les fichiers excel d'un repertoire et des sous-repertoires ?
merci d'avance
Istephane