XL 2016 Conserver un lien hypertexte dans un userform

emarie6380

XLDnaute Nouveau
Bonjour à tous,

J'ai une base de données assez importantes de fiches d'enregistrement, de procédures et de protocoles.

Dans mon fichier Excel, ces informations sont classées par thème, date de mise à jour... et un accès direct à la fiche concernée via un lien hypertexte (les fiches, au format Word sont stockées sur un serveur, il y en a plus de 250).
Pour faciliter les recherches dans cette base de données, j'ai créé un formulaire permettant, un fois choisi le thème de la fiche par un menu déroulant, de voir apparaître ses informations.

Le souci est que je "perds" mon lien hypertexte entre ma base de données sous forme de tableau et mon formulaire.

Voici un extrait de ma base :
https://1drv.ms/u/s!AocAz3lXp8uDhM5ZHQwkURamFEZJ8g?e=jHE7Mr
Les liens hypertextes sont sur la colonne G, la colonne Fiche

Voici mon formulaire :
https://1drv.ms/u/s!AocAz3lXp8uDhM5a_H-T0Ioxg_4cJw?e=29OD3s

Voici le code de mon formulaire :
Private Sub CommandButton1_Click()
'double click sur le bouton Recherche
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 2).Value
ComboBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 3).Value
TextBox3.Value = Cells(no_ligne, 4).Value
TextBox4.Value = Cells(no_ligne, 5).Value
TextBox5.Value = Cells(no_ligne, 6).Value
TextBox6.Value = Cells(no_ligne, 7).Value
Else
End If
End Sub

La TextBox6 correspond à mes données de la colonne G, la colonne Fiche. C'est là que s'affiche la référence de la fiche mais je n'ai plus le lien hypertexte qui me permettrait d'y avoir un accès direct depuis mon formulaire.

Pourrez-vous m'aider si une solution existe ?

Merci d'avance,

Éric
 

Roblochon

XLDnaute Impliqué
Bonjour,

Mettez plutôt un label à la place du TextBox6.
Et sur clic de ce label, utilisez followHyperLink
VB:
Private Sub Label1_Click()
 ThisWorkbook.FollowHyperlink Label1.Caption
End Sub
Bon après-midi
 

emarie6380

XLDnaute Nouveau
Merci beaucoup pour votre réponse.

J'ai modifié le code comme suit :

Private Sub CommandButton1_Click()
'double click sur le bouton Recherche
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 2).Value
ComboBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 3).Value
TextBox3.Value = Cells(no_ligne, 4).Value
TextBox4.Value = Cells(no_ligne, 5).Value
TextBox5.Value = Cells(no_ligne, 6).Value
TextBox6.Value = Cells(no_ligne, 7).Value
Else
End If
End Sub


Private Sub Label9_Click()
ThisWorkbook.FollowHyperlink Label9.Caption
End Sub

Mais lorsque je clique le lien j'ai un message d'erreur "Impossible d'ouvrier le fichier spécifié"
Je ne connais pas cette commande et me suis sûrement planté dans la syntaxe. Mon fichier se nomme Exercice thesaurus.xlsm et l'onglet qui contient ma base s'appelle Extrait.

Vous avez une idée ?
 

Roblochon

XLDnaute Impliqué
Re,

Null part vous ne renseignez Label9.Caption, c'est sûr qu'il ne trouvera pas le fichier.
Lisez bien ce que je vous disais: Remplace TextBox6 par un label!!!

De toute façon, sans fichier exemple, je ne peux que supputer des solutions. A vous de les adapter et d'essayer de les comprendre.
Et si vous ne connaissez pas une commande, aidez vous de l'aide (F1).

Bonne continuation
 

Roblochon

XLDnaute Impliqué
Bonsoir,

Voici, voici, je n'ai pas pu faire de tests avec des liens sur mes fichiers, car votre classeur bug sur ma version excel (2010) mais le principe est là dans le code, commenté de votre userform.

Si votre userform ne doit servir qu'à la consultation, alors remplacez vos textBox par des Labels qui ne sont pas modifiables par l'utilisateur.

bonne soirée
 

Fichiers joints

Discussions similaires


Haut Bas