Creer hyperlink a partir du nom de l'onglet

[neutrix]

bonjour tout le monde

j'ai un petit probleme
(pour info je ne connais rien en VBA mais je me débrouille avec les enregistrement de macro)

j'avais trouver du code sur le forum, je modifie une variable et ca ne marche plus alors je pete un cable.

Code trouvé:
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf


Le mien:
var1b = ActiveSheet.Name
Range("I4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
var1b & "'" & "!A1", TextToDisplay:=coucoucou


voila

merci d avance

 

[BOISGONTIER]

Re : Creer hyperlink a partir du nom de l'onglet

Bonjour,

var1b = ActiveSheet.Name
Range("I4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
var1b & "'" & "!A1", TextToDisplay:="coucou"

JB
Formation Excel VBA JB

 

[poilamonnez]

Re : Creer hyperlink a partir du nom de l'onglet

Le mien:
var1b = ActiveSheet.Name
Range("I4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
var1b & "'" & "!A1", TextToDisplay:=coucoucou

bonjour:

en mettant des guillemets à "coucoucou" ou bien mettre var1b à la place !

@+

 

[pierrejean]

Re : Creer hyperlink a partir du nom de l'onglet

bonjour neutrix

A tester:

var1b = ActiveSheet.Name
Range("I4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
var1b & "'" & "!A1", TextToDisplay:=[COLOR=red]"[/COLOR]coucoucou[COLOR=red]"
[/COLOR]

 

[neutrix]

Re : Creer hyperlink a partir du nom de l'onglet

merci bcp tout le monde

alala
je me mord encore les doigts de ces petits guillemets

merci encore
++