lien hypertexte depuis un onglet

Pierrot93

XLDnaute Barbatruc

• 30 Septembre 2006

• #2

Re : lien hypertexte depuis un onglet

Bonjour Pierrot

As tu essayé click droit dans la cellule "lien HyperTexte" ou barre de menu => insertion => "lien HyperTexte" ?

Bon Week End
@+

 

Vote positif 0 Vote négatif

P

pierrot

XLDnaute Junior

• 1 Octobre 2006

• #3

Re : lien hypertexte depuis un onglet

bonjour à tous,

pierrot mon souci justement c'est que le lien hypertexte que je veux créer ,je ne veux pas le faire d'une cellule mais en cliquant sur l'onglet feuil3 par exp

bonne journée à tous

pierre

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 1 Octobre 2006

• #4

Re : lien hypertexte depuis un onglet

Bonjour

question bête : quel intérêt ?

sinon une macro dans feuil3
en worksheet_activate()

 

Vote positif 0 Vote négatif

P

pierrot

XLDnaute Junior

• 1 Octobre 2006

• #5

Re : lien hypertexte depuis un onglet

bonjour éric,

cet exactement cela que je veux faire mais je n'y arrive pas , aurais tu la gentillesse de m'écrire le code sur l'exemple que j'ai précedement envoyé.

je te remercie

pierre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Octobre 2006

• #6

Re : lien hypertexte depuis un onglet

Bonjour Pierrot, Eric

je sais pas si j'ai bien compris ce que tu voulais, mais j'ai mis une macro dans la feuille 3, sur l'evenement "activate", ca active la feuille 2, en commentaire (vert), une ligne de code permettant l'ouverture d'un autre classeur, si c'est ce que tu veux il te faut enlever le premier caractère de la ligne (l'apostrophe) et modifier le chemin complet du classeur à ouvrir.

Si tout ca peut t aider !!!

Bonne fin de journée
@+

 

Pièces jointes

• Test.xls

  19 KB · Affichages: 82
• Test.xls

  19 KB · Affichages: 77
• Test.xls

  19 KB · Affichages: 77

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 2 Octobre 2006

• #7

Re : lien hypertexte depuis un onglet

Bonjour

tu peux essayer

Private Sub Worksheet_Activate()
Dim ouvrir
ouvrir = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If ouvrir = faux Then
MsgBox "abandon": Exit Sub
End If
Workbooks.Open (ouvrir)
End Sub

 

Vote positif 0 Vote négatif