Changer les liens hypertextes automatiquement en vba excel

Résolu/Fermé

Lien

hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 - Modifié le 23 nov. 2017 à 11:57
hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 - 24 nov. 2017 à 23:43

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.

A voir également:

Excel macro lien hypertexte automatique
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Lien url - Guide
Liste déroulante excel - Guide
Renommer un lien hypertexte - Forum Réseaux sociaux
Créer un lien pour partager des photos - Guide

4 réponses

Réponse 1 / 4

jordane45 Messages postés 38452 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mars 2025 4 740
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

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

hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 9
24 nov. 2017 à 23:43

merci beaucoup monsieur, enfin mon problème est bien résolu et ça marche très bien
vive le forum et encore merci pour votre aide.

Réponse 2 / 4

yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025 Ambassadeur 1 570
23 nov. 2017 à 11:56

bonjour, tu peux t'inspirer de ceci, qui affiche des infos pour tous les hyperliens du classeur:

Sub allhyper()
Dim ws As Worksheet
Dim hp As Hyperlink
For Each ws In ThisWorkbook.Sheets
    For Each hp In ws.Hyperlinks
        Debug.Print ws.Name, hp.Name, hp.SubAddress, hp.TextToDisplay
    Next hp
Next ws
End Sub

si je comprends ce que tu souhaites faire, tu devrais donc simplement modifier l'attribut

SubAddress

des liens présents sur la nouvelle feuille.

hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 9
Modifié le 23 nov. 2017 à 12:11

re
SubAddress : je veux remplacer par le non de la nouvelle feuille (test)
comment est ce que je peu introduire cette écriture dans mon macro ( copie et création de nouvelle feuille):
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 = test
End Sub

yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025 1 570 > hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024
23 nov. 2017 à 12:20

Jordane a fait tout le travail pour toi en #2, il ne te reste plus qu'à copier son code.

Réponse 3 / 4

jordane45 Messages postés 38452 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mars 2025 4 740
Modifié le 23 nov. 2017 à 11:59

Bonjour,

Un truc du genre

Sub actualiseLiens()
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

'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

Cordialement,
Jordane

hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 9
23 nov. 2017 à 12:47

re
comment est ce que je peu introduire cette écriture dans mon macro ( copie et création de nouvelle feuille):
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 = test
End Sub

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 = test 
call actualiseLiens
End Sub

Sub actualiseLiens()
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

'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

jordane45 Messages postés 38452 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mars 2025 4 740 > hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024
23 nov. 2017 à 12:49

Bonjour,

1 - Pour poster du code sur le forum... il faut utiliser les BALISES DE CODE
Explications ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

2 - Tu peux faire appel à la macro que je t'ai donné via un CALL : https://forums.commentcamarche.net/forum/affich-37622021-vba-appel-d-une-macro-dans-une-autre-macro#appel-d-une-sub-depuis-une-sub

hakimr Messages postés 259 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 17 août 2024 9 > jordane45 Messages postés 38452 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mars 2025
23 nov. 2017 à 20:43

comment est ce que je peu introduire cette écriture dans mon macro ( copie et création de nouvelle feuille):

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 = test 
End Sub

as-tu lu la réponse #6?

Discussions similaires

Lien hypertexte automatique

vba liens hypertexte automatique

Creation de liens hypertexte sur excel en vba

(VB Excel) lien hypertexte automatique

Supprimer le Contenu partagé sur Messenger Facebook