Modifier lien hypertexte
Fermé
gedeon811
Messages postés
67
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
19 mai 2021
-
7 avril 2011 à 19:38
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 - 7 avril 2011 à 23:09
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 - 7 avril 2011 à 23:09
A voir également:
- Modifier lien hypertexte
- Lien url - Guide
- Modifier liste déroulante excel - Guide
- Verifier un lien - Guide
- Comment modifier un pdf - Guide
- Créer un lien pour partager des photos - Guide
1 réponse
m@rina
Messages postés
20077
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
11 272
Modifié par m@rina le 7/04/2011 à 23:11
Modifié par m@rina le 7/04/2011 à 23:11
Bonjour,
Voici une macro pour la feuille 1 :
Si tu dois appliquer ça sur toutes les feuilles, il faut faire une boucle sur toutes les feuilles :
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
Voici une macro pour la feuille 1 :
Sub liens()
Dim lien As Hyperlink
For Each lien In Worksheets("Feuil1").Hyperlinks
lien.Address = Replace(lien.Address, "ancien_lien.com", "nouveau_lien.com")
Next
End Sub
Si tu dois appliquer ça sur toutes les feuilles, il faut faire une boucle sur toutes les feuilles :
Sub liens2()
Dim lien As Hyperlink
For x = 1 To ActiveWorkbook.Sheets.Count
For Each lien In Worksheets(x).Hyperlinks
lien.Address = Replace(lien.Address, "ancien_lien.com", "nouveau_lien.com")
Next lien
Next x
End Sub
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
