Discussion :

[dodo28]

Bonjour le forum,
Pouvez vous m'aider sur mon probleme? en vous en remerciant d'avance.
Dans un userform (userform1) j'ai un textbox (te_matricule) ce texbox doit generer un lien hypertext sur l'userform1. Il me servira a ouvrir des fichiers specifiques (.wor) designés par le texbox.
voici ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
lien = "d:\" & te_matricule & ".wor"
'La_lien est un label
 Me.La_lien = lien

mais ceci n'inscrit pas un lien hypertext.
j'ai esayer aussi avec ca mais la non plus pas bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With UserForm1
.Hyperlinks.Add.La_lien , lien
End With

Merci pour votre aide

[erohares]

.Hyperlinks.Add ne semble fonctionner qu'avec une plage, une feuille ou un graphique. Je ne sais pas si on peux mettre un lien dans un label...

Une solution (sûrement pas la meilleure) peut être de lancer le fichier quand on clique sur le label.

Pour cela, on peut lancer une commande shell (ms-dos) à partir de VB pour ouvrir le fichier. Il faut indiquer le chemin du logiciel qui ouvre le fichier, un espace et entre guillemet le chemin du fichier à ouvrir.
exemple :

C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe "d:\chemin\a.wor"

(si tu veux ouvrir ton fichier avec Acrobat)


Ce qui donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub La_lien_Click()
 
lien = """d:\" & te_matricule & ".wor"""
 
Shell ("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & lien & Chr(34))
'remplacer le chemin d'Acrobat par le chemin de ton logiciel
 
End Sub

C'est crado mais si tu n'as pas d'autres solutions...

[dodo28]

bonjour eroars,
merci
si ca marche avec mapinfo (sig) du moment qu'il est deja ouvert. si tu veux chaque matricule correspond a un fichier mapinfo.
Mon problème est a générer ce lien sur mon userform

[erohares]

Je ne sais pas comment mettre un lien dans un Label, désolé

[ESVBA]

Avce un code comme ceci :

une étiquette et dans la procédue "Click" de l'étiquette :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.FollowHyperlink Address:="http://www.google.fr"

ESVBA

[dodo28]

merci beaucoup a vous deux ca marche