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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 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:

Récupération d'informations en ligne sur base d'un code barre
Vente en ligne particulier - Guide
Comment recuperer un message supprimé sur whatsapp - Guide
Partage de photos en ligne - Guide
Ne pas apparaître en ligne sur instagram - Guide
Comment récupérer un compte facebook piraté - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
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

Judge_DT Messages postés 29395 Date d'inscription vendredi 5 février 2010 Statut Modérateur Dernière intervention 23 octobre 2021 9 620
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.

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
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

Discussions similaires

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

Mail étrange (demande de reinitialisation MDP)

Que veut dire "correspondant occupé" lors d'un appel ?

Barre verticale droite sur clavier

Discussions similaires

Newsletters