VBA excel Lien hypertexte => dernière feuille

Résolu/Fermé
ghilleret - 4 mai 2010 à 21:56
 ghilleret - 5 mai 2010 à 19:32
Je souhaite écrire une macro VBA pour Excel qui crée un lien hypertexte de la cellule active vers la dernière feuille du classeur.
Le programme ci-dessous ne fonctionne pas, vraisemblablement à cause de "Sheets(Sheets.Count).Range("A1")" - comment faut-il que je désigne la dernière feuille ?
Merci d'avance !

Sub Macro3()

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

Sheets(Sheets.Count).Range("A1"), TextToDisplay:= _

Sheets(Sheets.Count).Name

End Sub


A voir également:

1 réponse

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
4 mai 2010 à 22:48
Bonjour,
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
 Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets(Sheets.Count).Name

A+
3
Merci beaucoup !
0