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 -
Bonjour,
Sous excell je cherche à programmer une macro qui génère des liens hypertextes automatiques dans le ^m classeur lors d'une copie et création d'une nouvelle feuille.
je m'explique dans une feuille j'ai 4 ou 5 boutons de lien hypertexte pour aller directement a une adresse voulu par exemple page haut et page bas, a chaque fois en cliquant sur un bouton nouvelle feuille je change manuellement les liens hypertextes au non de la feuille crée.
question: comment est ce que je peu écrire sous vba pour changer automatiquement les liens hypertextes au nom de la feuille crée
merci d'avance.
Sous excell je cherche à programmer une macro qui génère des liens hypertextes automatiques dans le ^m classeur lors d'une copie et création d'une nouvelle feuille.
je m'explique dans une feuille j'ai 4 ou 5 boutons de lien hypertexte pour aller directement a une adresse voulu par exemple page haut et page bas, a chaque fois en cliquant sur un bouton nouvelle feuille je change manuellement les liens hypertextes au non de la feuille crée.
question: comment est ce que je peu écrire sous vba pour changer automatiquement les liens hypertextes au nom de la feuille crée
merci d'avance.
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.