Changer les liens hypertextes automatiquement en vba excel
Résolu
hakimr
Messages postés
259
Date d'inscription
Statut
Membre
Dernière intervention
-
hakimr Messages postés 259 Date d'inscription Statut Membre Dernière intervention -
hakimr Messages postés 259 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel macro lien hypertexte automatique
- Lien copié - Forum Téléphones & tablettes Android
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Liste déroulante excel - Guide
4 réponses
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
vive le forum et encore merci pour votre aide.