[RESOLU] Hyperlink

[néné06]

Bonjour à toutes et tous,

J'ai donc un USF avec une textbox où j'entre le nom du lien.
En appuyant sur le bouton "GO", l'adresse se copie en A1, mais je dois cliquer sur cette celulle pour activer le lien.
Serait-il possible d'enclencher le lien en appuyant uniquement sur le bouton "GO" ?

D'avance Merci !!

 

[MichD]

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.

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

 

[néné06]

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+

 

[MichD]

Re : Hyperlink

Voir fichier joint.

 

[néné06]

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+

 

[job75]

Re : Hyperlink

Bonsoir,

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

A+

 

[néné06]

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 !!!