[RESOLU] Hyperlink

M

MichD

XLDnaute Impliqué

• 17 Juin 2012

• #2

Re : Hyperlink

Bonjour,


Une façon de faire, tu adaptes le nom de la feuille.

Ce type de procédure doit s'exécuter via l'interface de calcul et non directement de
la fenêtre de l'éditeur de code.

VB:

With Worksheets("Feuil1")
    .Range("F2").Select
    SendKeys "{F2}" & "http://cjoint.com/" & "~"
End With

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Juin 2012

• #3

Re : Hyperlink

Bonjour MichD

Merci de te pencher sur mon problème, mais je n'arrive pas a faire le fonctionner ?
La réponse "Sendkeys" me donne une piste, que je vais creuser !

Merci !!!

A+

 

Vote positif 0 Vote négatif

M

MichD

XLDnaute Impliqué

• 17 Juin 2012

• #4

Re : Hyperlink

Voir fichier joint.

 

Pièces jointes

• Hyperlink.xlsm

  15.8 KB · Affichages: 35
• Hyperlink.xlsm

  15.8 KB · Affichages: 42

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Juin 2012

• #5

Re : Hyperlink

Re,

Je pense que ma question a été mal formulé, mais ce que je souhaiterais ,serai d'aller sur l'adresse du lien, sans devoir l'écrire sur une cellule;
Actuellement, dans mon programme, le lien s'écrit automatiquement, en cellule A1, depuis la textbox.
Pour exécuter le lien, je dois me placer sur la cellule A1 , mais je désire supprimer cette cellule A1 et partir sur le lien directement depuis le CommandButton de USF.

Merci et A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2012

• #6

Re : Hyperlink

Bonsoir,

Code:

Private Sub CommandButton1_Click() 'Go
ThisWorkbook.FollowHyperlink TextBox1
End Sub

A+

 

Pièces jointes

• hyperlink(1).xls

  42 KB · Affichages: 42

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Juin 2012

• #7

Re : Hyperlink

Bonsoir job75

C'est tout à fait ce que je cherchais !!
Un code réduit au minimum, pour une efficacité MAXIMUM .

Un grand MERCI !!!

 

Vote positif 0 Vote négatif