Récupération d'informations en ligne sur base d'un code barre

Fermé
Judge_DT Messages postés 29395 Date d'inscription vendredi 5 février 2010 Statut Modérateur Dernière intervention 23 octobre 2021 - 12 mai 2019 à 13:39
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 17 mai 2019 à 19:06
Salut tout le monde,

Actuellement sur un projet d'inventaire, je coince sur un problème que je ne sais comment aborder.

Je voudrais, grâce à Excel (en l'occurrence, une version 2016), pouvoir récupérer automatiquement des informations liées à un code barre grâce à une recherche sur une page web.

J'ai un scanner de code barre, avec lequel lorsque je scanne un code il l'ajoute dans une ligne sur Excel et passe à la prochaine, etc, etc.

Je voudrais que lorsque je scanne ce code et l'ajoute dans Excel, il utilise le code pour aller chercher des informations sur une page web... Mais là, je coince totalement et vois pas comment le faire.

Des idées ?
A voir également:

1 réponse

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 242
Modifié le 13 mai 2019 à 00:31
Bonjour,

je peux te donner un point de départ.
Fait une recherche sur ton site avec un code barre et copie l'adresse fabriquée.
Dans cette adresse tu feras varier le code barre.
Dans les événements tu as FollowHyperlink qui permet de suivre un lien.
Ex avec une recherche google avec le code 3046920022606 :
Sub test()
ActiveWorkbook.FollowHyperlink Address:="https://www.google.fr/search?q=3046920022606"
End Sub

(j'ai enlevé des éléments pas indispensables dans l'adresse pour la raccourcir)
Ca t'ouvre la page dans ton navigateur.
Plus qu'à récupérer les infos qui t'intéressent, mais là ce n'est pas trop ma partie... ;-)

Par ailleurs tu devrais donner plus de détail sur la page atteinte. Sur 2016 il y a pas mal de nouveautés pour se connecter facilement à une BDD externe.
Quelqu'un l'ayant pourra t'aider plus si c'est faisable.
eric

0
Judge_DT Messages postés 29395 Date d'inscription vendredi 5 février 2010 Statut Modérateur Dernière intervention 23 octobre 2021 9 657
17 mai 2019 à 18:44
Hi,

Merci.

C'est justement sur la partie "dynamiser la recherche" que je coince, déjà... Et ensuite, pour pouvoir récupérer les données automatique. Je suis un peu (fortement) rouillé sur les fonctions avancées d'Excel... :-(

Je vais continuer à chercher et voir.
0
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 242
Modifié le 17 mai 2019 à 19:06
Bonjour,

boucler ce n'est pas le plus dur :
Sub test()
    Dim lig As Long
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row    ' pour les codes de A2 à Ax
        ActiveWorkbook.FollowHyperlink Address:="https://www.google.fr/search?q=" & Cells(lig, 1)
        Stop ' arrêt à chaque code
        ' insérer ici le code de récup des données
    Next lig
End Sub

eric
0