Conserver un lien hypertexte dans un userform
emarie3680
Messages postés
131
Date d'inscription
Statut
Membre
Dernière intervention
-
emarie3680 Messages postés 131 Date d'inscription Statut Membre Dernière intervention -
emarie3680 Messages postés 131 Date d'inscription Statut Membre Dernière intervention -
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
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+
A voir également:
- Conserver un lien hypertexte dans un userform
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Lien copié - Forum Téléphones & tablettes Android
- Lien de rajout pour bara facebook - Forum Webmastering
- Verifier un lien - Guide
4 réponses
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
Cdlmnt
Via
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
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... ?
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... ?