Lien

[apdf1]

Bonjour,

Pouriez-vous me dire comment je pourrais Inserer un lien Hypertext dans le Textbox d'un Userform vers une feuille d'un autre classeur.

Merci d'avance

Bonne soirée
Max

 

[apdf1]

Re : Lien

Bonjour,

Personne ne peut m'aider ?

@+

 

[Pierrot93]

Re : Lien

Bonjour,

regarde ce lien, devrait t'aider :
https://www.excel-downloads.com/threads/vba-lien-hypertexte-dans-une-textbox.150367/
bonne journée
@+

 

[PMO2]

Re : Lien

Bonjour,

A ma connaissance, je ne crois pas que cela soit possible mais on peut toujours ruser.

Essayez la démarche suivante qui simule un lien hypertexte

1) créez un classeur "zaza.xls" et dans la feuille "Feuil3" renseignez la cellule A19. Enregistrez le (sous le nom zaza.xls).

2) créez un classeur "toto.xls"
3) y créer un UserForm1 avec un contrôle Label1 et dans sa fenêtre de code copiez le code suivant

Private Sub Label1_Click()
On Error Resume Next
Application.Goto _
  Reference:=Workbooks("zaza.xls").Sheets("Feuil3").Range("A19"), _
  Scroll:=True
If Err = 9 Then MsgBox "Le classeur " & L_AUTRE_CLASSEUR & " n'est pas ouvert"
Me.Hide
End Sub

4) dans un module standard, copiez le code suivant

Public Const L_AUTRE_CLASSEUR As String = "zaza.xls"  'à adapter

Sub LanceUSF()
With UserForm1.Label1
  .Caption = "Lien vers " & L_AUTRE_CLASSEUR
  .Font.Underline = True
  .ForeColor = 16711680
End With
UserForm1.Show
End Sub

Il n'y a plus qu'à lancer la macro "LanceUSF"

Cordialement.

PMO
Patrick Morange