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 19855 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 29 mars 2024 - 7 avril 2011 à 23:09
m@rina Messages postés 19855 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 29 mars 2024 - 7 avril 2011 à 23:09
A voir également:
- Modifier lien hypertexte
- Lien url - Guide
- Verifier un lien - Guide
- Modifier liste déroulante excel - Guide
- Comment modifier un pdf - Guide
- Créer un lien pour partager des photos - Guide
1 réponse
m@rina
Messages postés
19855
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
29 mars 2024
11 258
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 ???"