Ouvrir lien hypertexte via bouton commande VB
Résolu
céc
-
BTB -
BTB -
Bonjour,
J'ai crée une base de données (feuil1) contenant les informations des fiches sécurité produits.
A l'aide de VBA, j'ai utilisé une userform (feuil2) pour réaliser une recherche rapide, plus sympa pour les utilisateurs que les filtres automatiques.
Je peux faire une recherche selon 2 critères: nom ou code, ma userform reprend les infos dans la base de données.
Je suis maintenant bloquée :j'ai installé un bouton de commande "consulter fiche sécurité" dans ma userform qui doit ouvrir le pdf associé au résultat de ma recherche. Je souhaite faire un lien vers le lien hypertexte de la fiche sécurité du produit sur Feuil1. Mais je n'arrive pas à créer le code macro qui me permettra de rendre ce bouton actif.
Je suis débutante en programmation... soyez indulgent!
Merci pour votre aide!
J'ai crée une base de données (feuil1) contenant les informations des fiches sécurité produits.
A l'aide de VBA, j'ai utilisé une userform (feuil2) pour réaliser une recherche rapide, plus sympa pour les utilisateurs que les filtres automatiques.
Je peux faire une recherche selon 2 critères: nom ou code, ma userform reprend les infos dans la base de données.
Je suis maintenant bloquée :j'ai installé un bouton de commande "consulter fiche sécurité" dans ma userform qui doit ouvrir le pdf associé au résultat de ma recherche. Je souhaite faire un lien vers le lien hypertexte de la fiche sécurité du produit sur Feuil1. Mais je n'arrive pas à créer le code macro qui me permettra de rendre ce bouton actif.
Je suis débutante en programmation... soyez indulgent!
Merci pour votre aide!
A voir également:
- Ouvrir lien hypertexte via bouton commande VB
- Invite de commande - Guide
- Comment ouvrir un fichier epub ? - Guide
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Ouvrir fichier .bin - Guide
2 réponses
bonjour
Tu peux essayer ceci
La colonne A contient les éléments de ton combobox : à adapter
La colonne B correspondante a le chemin du pdf : à adapter
Tu peux essayer ceci
Dim lig As Long, col As String
col = "A"
For lig = 1 To Cells(Columns(col).Cells.Count, col).End(xlUp).Row
If Sheets("feuil1").Cells(lig, col).Value = ComboBox1.Value Then
ActiveWorkbook.FollowHyperlink Address:=Sheets("Feuil1").Cells(lig, "B"), NewWindow:=True
Exit Sub
End If
Next lig
La colonne A contient les éléments de ton combobox : à adapter
La colonne B correspondante a le chemin du pdf : à adapter
bonjour
Si tu as le chemin du fichier pdf en A1, tu peux coder simplement ceci dans ton bouton
Le clic sur le bouton et son code ouvre le document avec le logiciel paramétré dans le registre.
Si tu as le chemin du fichier pdf en A1, tu peux coder simplement ceci dans ton bouton
ActiveWorkbook.FollowHyperlink Address:=Sheets("Feuil1").Range("A1"), NewWindow:=True
Le clic sur le bouton et son code ouvre le document avec le logiciel paramétré dans le registre.
Bonjour,
en effet, j'ai déjà essayé de type de code mais mon problème c'est que le lien hypertexte n'est pas toujours en A1, il se trouve dans la colonne A. pour déterminer la ligne, il faut arriver à faire le lien avec la sélection du menu déroulant (combobox) de ma userform... c'est chaud à expliquer!
Tu peux m'aider??
Merci
en effet, j'ai déjà essayé de type de code mais mon problème c'est que le lien hypertexte n'est pas toujours en A1, il se trouve dans la colonne A. pour déterminer la ligne, il faut arriver à faire le lien avec la sélection du menu déroulant (combobox) de ma userform... c'est chaud à expliquer!
Tu peux m'aider??
Merci
Peux-tu mettre ton fichier ici?
http://www.cijoint.fr/
Si ton fichier sert à gérer les FDS de tes produits chimiques je te conseille le fichier Excel Clarice créé par la cram. Il doit être disponible gratuitement sur le net
http://www.cijoint.fr/
Si ton fichier sert à gérer les FDS de tes produits chimiques je te conseille le fichier Excel Clarice créé par la cram. Il doit être disponible gratuitement sur le net
merci bcq!!!
Sauf que jutilise une userform avec listbox et que le lien hypertexte mene vers un ***.xls
je debute et j'ai beaucoup de mal a adapté le code a ma base de données
pourriez vous m'aidez ?
Si tu pouvais nous mettre ce que tu as essayé comme code ici, ce serait plus facile à adapter.
Sinon si tu pouvais nous mettre un exemple de classeur, sans données identifiables et privées, mais avec la structure de tes données et userform sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile.
Dim lig As Long, col As String
col = "A"
For lig = 1 To Cells(Columns(col).Cells.Count, col).End(xlUp).Row
If Sheets("BD").Cells(lig, col).Value = ListBox1.Value Then
ActiveWorkbook.FollowHyperlink Address:=Sheets("BD").Cells(lig, "E"), NewWindow:=True
Exit Sub
End If
Next lig
End Sub
J'ai essayer ceci, Donc ma Feuill1 ce nomme BD; les colonnes A a D contiennent les infos presente dans la base de données et donc la listbox de l'userform.
La colonne E contient les liens hypertextres correspondant d'apres les lignes ( cellule E1 = liens hypertexte correspondant cellule A1/B1/C1/D1 )
Je souhaiterai le code qui rendrait mon boutton Accede ci-dessus operationel pour que quand je clique dessus il ouvre le liens hypertexte correspondant a la ligne en surbrillance (donc selectionné par un clic) de la listbox
Merci pour votre aide
Private Sub Accede_Click()
ligne = Me.ListBox1.ListIndex + 2
temp = Sheets(1).Cells(ligne, "e").Hyperlinks(1).Address
a = Split(temp, "!")
Sheets(a(0)).Range(a(1)).Select
End Sub
Echec de nouveau, avec la ligne en gras detecter par debogage