VBA excel Lien hypertexte => dernière feuille

Résolu
ghilleret -  
 ghilleret -
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

1 réponse

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
     Sheets(Sheets.Count).Name & "!A1", TextToDisplay:=Sheets(Sheets.Count).Name

    A+
    3
    1. ghilleret
       
      Merci beaucoup !
      0