redirectLink secondaire ()
Faible rng comme gamme
Pour chaque rng dans ActiveSheet.UsedRange.Cells
Si rng. Hyperlinks.Count = 1 puis
Avec le rng. Liens hypertextes (1)
. L'adresse = remplacent (. Adresse, « ServerX », « ServerY », 1, vbTextCompare)
.TextToDisplay = remplacent (.TextToDisplay, « ServerX », « ServerY », 1, le vbTextCompare)
Extrémité avec
Finir si
Après
Sous-marin d'extrémité
|