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

Judge_DT Messages postés 29412 Date d'inscription   Statut Modérateur Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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 29412 Date d'inscription   Statut Modérateur Dernière intervention   9 670
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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

Discussions similaires

On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses