Changer les liens hypertextes automatiquement en vba excel
Résolu/Fermé
hakimr
Messages postés
186
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
1 décembre 2022
-
Modifié le 23 nov. 2017 à 11:57
hakimr Messages postés 186 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 1 décembre 2022 - 24 nov. 2017 à 23:43
hakimr Messages postés 186 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 1 décembre 2022 - 24 nov. 2017 à 23:43
A voir également:
- Excel macro lien hypertexte automatique
- Liste déroulante excel - Guide
- Formule excel - Guide
- Lien hypertexte linkedin - Forum Internet / Réseaux sociaux
- Réponse automatique outlook - Guide
- Lien hypertexte word pdf ✓ - Forum PDF
4 réponses
jordane45
Messages postés
36945
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
7 février 2023
4 491
24 nov. 2017 à 23:27
24 nov. 2017 à 23:27
Bonjour,
Déjà.. il faudrait lancer les codes dans l'ordre....
Ensuite... pourquoi ne pas appliquer le code que l'on t'a donné....
Et enfin.. il aurait été bien que ta première feuille contienne des liens qui marchent... sinon les copies.. ben.. elles ne fonctionnent pas non plus !
Bref...
vu que le nom de tes feuilles contiennent des tirets, il faut en effet légèrement modifié mon code.
Donc voici ton code corrigé et fonctionnel
Déjà.. il faudrait lancer les codes dans l'ordre....
Ensuite... pourquoi ne pas appliquer le code que l'on t'a donné....
Et enfin.. il aurait été bien que ta première feuille contienne des liens qui marchent... sinon les copies.. ben.. elles ne fonctionnent pas non plus !
Bref...
vu que le nom de tes feuilles contiennent des tirets, il faut en effet légèrement modifié mon code.
Donc voici ton code corrigé et fonctionnel
Sub Groupe59_QuandClic() ActiveSheet.Copy after:=Sheets(Sheets.Count) [c7].Value = [c7].Value + 1 [A843].Value = [C843].Value 'test = Application.Proper(Format(Range("e779"), "mmm-yyyy")) ActiveSheet.Name = "Nov-2017" Call modifiLink End Sub Sub modifiLink() Dim sh As Worksheet Dim L As Hyperlink Dim exclapos As Integer Dim strFPrec As String 'On défini la feuille active Set sh = ActiveSheet Debug.Print (sh.Name) 'On boucle sur chaque lien de la feuille For Each L In sh.Hyperlinks 'On trouve l'emplacement du ! exclapos = InStr(1, L.SubAddress, "!", vbTextCompare) 'Nom de la feuille précédente strFPrec = Mid(L.SubAddress, 1, exclapos - 1) 'On remplace par le nom de la feuille actuelle L.SubAddress = Replace(L.SubAddress, strFPrec, "'" & sh.Name & "'") Next End Sub
24 nov. 2017 à 23:43
vive le forum et encore merci pour votre aide.