Conserver un lien hypertexte dans un userform

Fermé
emarie3680 Messages postés 131 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 16 décembre 2022 - 18 juil. 2019 à 12:14
emarie3680 Messages postés 131 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 16 décembre 2022 - 18 juil. 2019 à 14:44
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://onedrive.live.com/redir?resid=83CBA75779CF0087!75609&authkey=!AB0MJFEWphRGSfI&e=jHE7Mr
Les liens hypertextes sont sur la colonne G, la colonne Fiche

Voici mon formulaire :
https://onedrive.live.com/redir?resid=83CBA75779CF0087!75610&authkey=!APx_k9CKMYP-HCc&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

Configuration: Athlon XP 3800+

4 réponses

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 742
18 juil. 2019 à 13:18
Bonjour

A condition que le lien hypertexte ait le même nom que celui affiché dans le textbox, une procédure au double clic dans le textbox peut ouvrir le lien dans une nouvelle fenêtre
Private Sub TextBox6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lien = "..\..\.....l\" & Me.TextBox6 & ".docx" ' remplacer les ... par le chemin du fichier
ActiveWorkbook.FollowHyperlink Address:=lien, NewWindow:=True
End Sub

Cdlmnt
Via
0
emarie3680 Messages postés 131 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 16 décembre 2022 13
18 juil. 2019 à 13:55
Merci pour votre aide.

Je ne comprends cependant pas la manip car j'ai autant de liens que de fiches. Mon fichier Excel fait plus de 200 lignes, donc plus de 200 références de fiches, donc plus de 200 liens... ?
0
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 742
18 juil. 2019 à 14:38
Si le nom affiché dans le textbox est bien celui du document word et que dans la 1ere ligne de macro tu as indiqué le bon chemin le doc correspondant s'ouvre
0
emarie3680 Messages postés 131 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 16 décembre 2022 13
18 juil. 2019 à 14:44
Merci beaucoup, je vais tester et reviens vers vous.
0