Re : Lien Hypertexte + renommé onglet
J'ai mis en place une macro qui permet de créer un nouvel onglet qui est renommé automatiquement "fiche nouvelle".
Certaines infos sont automatiquement reportées dans una autre onglet "récapitulatif" et vont à la dernière ligne vide de certaines colonnes.
Ce que je souhaiterais dans un premier temps c'est que chaque onglet créé n'est pas le même nom (sinon erreur) et que le nom deviennent: "Fiche 1", "Fiche 2", ...
Mais aussi, que l'une des infos reportées sur la "fiche RECAP" permet d'être renvoyé directement sur l'un des onglets, en cliquant dessus (utilisation d'un lien hypertexte, double clique sur cellule).
Ci dessous la macro qui permet le début de ce que j'ai expliqué.
Sub NouvelleFiche()
Sheets("Fiche").Select
Sheets("Fiche").Copy after:=Sheets(2)
Sheets("Fiche (2)").Select
Sheets("Fiche (2)").Name = "Fiche Nouvelle"
Sheets("Fiche Nouvelle").Range("C53").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("D65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("E53").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("E65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("F3").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("B65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("F6").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("F65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("F8").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("A65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("F9").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("C65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
Sheets("Fiche Nouvelle").Range("I6").Copy
Sheets("RECAPITULATIF").Activate
ActiveSheet.Range("G65536").End(xlUp)(2).Select
ActiveSheet.Paste Link:=True
End Sub
Merci pour l'aide que vous pourriez m'apporter.