création lien hypertext par macro

[supercrapaud]

Bonjour à vous !

Je n'ai pas trouvé réponse à ma question alors je poste une sujet. Je souhaite créer un formulaire avec une textbox et un bouton qui me permette :
1) d'insérer une nouvelle feuille sur excel,
2) de renommer cette feuille (ex. test1) en fonction de ce que l'on a marqué dans une textbox
3) de créer sur la Feuil1 un lien hypertext vers la feuille test1 créée mais je n'y parviens pas.
Comment faire, voici le code que j'ai :

en cliquant sur le bouton du formulaire :
Sheets ("Feuil1").select
Sheets.add
nom = me.textbox1.value 'nom de la nouvelle feuille test1
activesheet.name = nom
Sheets("Feuil1").range("a1").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "nom!A1", TextToDisplay:=nom
end sub

Sauf que quand je fais cela, le lien est créé sur la nouvelle feuille (test1) et du coup ne trouve pas le chemin de la feuille test1. Pouvez-vous m'aider SVP ? JE vous joins un fichier type pour vous aider au cas oùMerci.

 

[Hulk]

Re : création lien hypertext par macro

Hello,

Teste ce code

    Sheets("Feuil1").Select
    ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    nom = Me.TextBox1.Value 'nom de la nouvelle feuille test1
    ActiveSheet.Name = nom
    Sheets("Feuil1").Select
    Range("A1").Select
    Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    Chr(39) & Sheets(TextBox1.Value).Name & Chr(39) & "!A1"
    [A1] = TextBox1

Cdt, Hulk.

 

[kjin]

Re : création lien hypertext par macro

Bonjour,
Un Hulk et un Supercrapaud...

Private Sub CommandButton1_Click()
Sheets.Add
nom = Me.TextBox1.Value 'nom de la nouvelle feuille test1
ActiveSheet.Name = nom
With Sheets("Feuil1")
    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:=nom & "!A1", TextToDisplay:=nom
End With

End Sub

A+ (je me tâte)
kjin

 

[supercrapaud]

Re : création lien hypertext par macro

OK merci à vous deux. j'ai opté pour la solution de kjin qui est plus simple à rédiger et ça marche très bien !