Menu

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

Messages postés
26524
Date d'inscription
vendredi 5 février 2010
Statut
Modérateur
Dernière intervention
19 mai 2019
- - Dernière réponse : eriiic
Messages postés
22729
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
- 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 ?
Afficher la suite 

Votre réponse

1 réponse

Messages postés
22729
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
7373
0
Merci
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

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Judge_DT
Messages postés
26524
Date d'inscription
vendredi 5 février 2010
Statut
Modérateur
Dernière intervention
19 mai 2019
5953 -
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.
eriiic
Messages postés
22729
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
7373 -
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
Commenter la réponse de eriiic