Userform

Georges -  
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je fais actuellement un userform,

Le but etant de rechercher des resultats a partie d'une base de donnée qu'on dira (feuill2) fait par des Combobox et module.

Je chercherai un code qui m'aiderais une fois mes resultats trouvé et qui s'affiche sur une feuille exel(feuill1) a garder un lien hypertexte qui est dans ma base de donnée de base.

Je precise sur ma feuill2 j'ai donc ma base de donné sur chaque ligne et dans une colonne j'ai un lien hypertexte qui renvoie a un fichier pdf je voudrais qu'une fois la recherche effectué grace a mon userform et qui sort le resultat sur la feuill1 que le lien hypertexte suivent j'ai essayé des code sans succés avais vosu une idée ? Merci

3 réponses

PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
Il y a deux parties: le code, et l'interface.

Le mieux, c'est que tu commences à monter l'interface (form, bouton, combobox).

Monte le squelette, et ensuite met nous le liens avec cjoint.
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

Ensuite, nous pouvons mieux voir tes besoins et t'aider avec la partie code et mettre de la vie au squelette.
0
Georges
 
http://cjoint.com/?0KhqGDdtzX2

Voici la P.J desole pour le retard j'avais pas mis le bon mail pour recevoir une reponse
0
Georges
 
De l'aide si vous plait
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
Je n'ai jamais travaillé avec les hyperliens.
Donc j'ai fait marché google et je suis tombé la dessus :
https://contexturesblog.com/archives/2010/12/13/get-the-url-from-an-excel-hyperlink/

Function HLink(rng As Range) As String
'extract URL from hyperlink
'posted by Rick Rothstein
  If rng(1).Hyperlinks.Count Then HLink = rng.Hyperlinks(1).Address
End Function


Une fonction à qui on fourni un range et qui retourne un string correspondant à l'hyperlien correspondant.
0