Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro Lien hypertexte vers dernier onglet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion laduche81
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

laduche81

XLDnaute Junior
Bonjour,

J'ai un bouton de macro qui me permet d'archiver l'agenda présent dans la feuille "agenda of today" dans une nouvelle feuille qui va prendre la valeur contenue dans la cellule G2.
De plus, cette date vient se renseigner dans la première cellule vide de la colonne A dans la feuille "index" qui fait office de sommaire.
Ensuite, dans la première cellule vide de la colonne B de cette même feuille "index" j'essaye de faire un lien hypertexte vers la dernière feuille du classeur. Et là... ça ne marche pas.

Voici mon code ci-dessous et merci beaucoup par avance de votre aide!

Cdlt,

Adrien



Code: 
Sub Macro1()
'
' Macro1 Macro
'

'
   
    If Sheets("Agenda of today").Range("G2") = 0 Then MsgBox ("Specify a date in G2")
    If Sheets("Agenda of today").Range("G2") = 0 Then Exit Sub
   
    ActiveSheet.Range("A5:K50").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Value = Sheets("Agenda of today").Range("G2").Value
    Columns("A:K").Select
    Columns("A:I").EntireColumn.AutoFit
    Rows("1:50").Select
    Rows("1:50").EntireRow.AutoFit
    
    ActiveSheet.Name = Format((Sheets("Agenda of today").Range("G2")), "dd-mm-yyyy")
  
    Sheets("index").Select
    Cells(Range("A65536").End(xlUp).Row + 1, 1) = Sheets("Agenda of today").Range("G2").Value
    
    Cells(Range("A65536").End(xlUp).Row + 0, 2).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    Sheets(Sheets.Count).Name & "!A1", TextToDisplay:="link to the agenda of that day"

    Sheets("Agenda of today").Select
    Range("G2").ClearContents
    Range("B6:K50").ClearContents
End Sub
 
Trier par date Trier par votes
Re : Macro Lien hypertexte vers dernier onglet

Bonjour,

Code: 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    Sheets(Sheets.Count).Name & "!A1", TextToDisplay:="link to the agenda of that day"

cette instruction fonctionne très bien chez moi, ce dans un module standard du classeur en question...

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Macro Lien hypertexte vers dernier onglet

Bonjour,

Le code semble correct en effet, cependant il ne marche pas chez moi. Je ne sais pas ce qui m'échappe, je vous joint mon fichier si cela peut aider.

Merci bien 🙂

Adrien
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro Lien hypertexte vers dernier onglet

bonjour à vous 2,

à essayer:
Code: 
[FONT=monospace]ActiveSheet.Hyperlinks.Add _
   Anchor:=Selection, _
   Address:="", _
   SubAddress:= "'" & Sheets(Sheets.Count).Name & "'!A1", _
   TextToDisplay:="link to the agenda of that day"

[/FONT]
 
Vote positif 0 Vote négatif
Re : Macro Lien hypertexte vers dernier onglet


Bonjour francedemo,

Merci cela marche parfaitement.
Merci aussi à vous Pierrot, effectivement les espaces dans le nom de la feuille étaient donc la source de mon erreur!

Bonne journée à vous deux 🙂

Adrien
 
Vote positif 0 Vote négatif
Re : Macro Lien hypertexte vers dernier onglet

je me suis permis de simplifier un peu ton code, il y a surement encore mieux à faire...

Code: 
Sub Macro1()

' Macro1 Macro
 
If Sheets("Agenda of today").[G2] = 0 Then MsgBox ("Specify a date in G2"): Exit Sub
   
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format((Sheets("Agenda of today").[G2]), "dd-mm-yyyy")

With Sheets("Agenda of today")
    .[A5:O50].Copy
    [A1:O45].PasteSpecial
    [A1].Value = .Range("G2").Value
End With

Columns("A:O").Select
Columns("A:I").EntireColumn.AutoFit
Rows("1:50").EntireRow.AutoFit
    
With Sheets("index")
    .Activate
    .Cells([A65536].End(xlUp).Row + 1, 1) = Sheets("Agenda of today").[G2].Value
    ActiveSheet.Hyperlinks.Add _
        Anchor:=.Cells([A65536].End(xlUp).Row + 0, 2), _
        Address:="", _
        SubAddress:="'" & Sheets(Sheets.Count).Name & "'!A1", _
        TextToDisplay:="link to the agenda of that day"
End With
With Sheets("Agenda of today")
    .Activate
    .[G2].ClearContents
    .[B6:K50].ClearContents
End With

End Sub

à +
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
350
patricktoulon
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
510
un internaute
U
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
710
VBA_dev_Anne_Marie
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
342
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
569
un internaute
U
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
540
Francky79
F
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
652
gui22
G
J
  • Question Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
506
Phil69970
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
719
robpellan52
R
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
684
Usine à gaz
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
948
MickaeL_D
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
701
Usine à gaz
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
S
  • Question Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
628
snoopy07
S
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
2
Réponses
21
Affichages
2 K
job75
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
782
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…