récupérer les données d'un service web sur Excel
Répondre à la discussion
Affichage des résultats 1 à 3 sur 3

récupérer les données d'un service web sur Excel



  1. #1
    invitea94ae7de

    récupérer les données d'un service web sur Excel


    ------

    Tout d'abord je tiens à préciser que je suis un débutant sur le domaine, du coup je risque de ne pas utiliser les bons termes.

    Alors j'ai une application mobile qui envoie les données à un serveur, en utilisant des tags, ces données est accessible via navigateur web : voici le lien : http://appinvtinywebdb.appspot.com/getvalue

    Mon problème c'est que quand j'entre le "bon tag" le lien de la page web ne change pas, du coup quand je copie le lien sur le module de récupération des données externes sur Excel ça ne marche pas!
    (il m'affiche les données de la page initiale)

    Est ce que j'ai possible de faire la requête serveur (ie entrer le nom du tag) via l'excel ? Si oui comment faire ? et Sinon que faire svp?
    Merci

    -----

  2. #2
    invitea94ae7de

    Re : récupérer les données d'un service web sur Excel

    Bon j'ai avancé un peu de mon côté, je suis arrivé à faire un code VBA (voir en dessous) qui permet d'accéder à la page web, remplir le champ du tag et lancer la requête HTTP
    le problème que j'ai maintenant est quand je veux lire la donnée (réponse) fournie par la DB, qui est sous la forme d'une chaîne de caractère, le programme lit toujours le texte de la page précédente (notons que les deux page ont le même URL) comment faire pour svp?

    Code:
    Sub Lancer_Edoc()
    Dim ie As New InternetExplorer
    Dim MyStr As String
    
    Set ie = New InternetExplorer
    
    ie.Navigate2 "http://appinvtinywebdb.appspot.com/getvalue"
    
    While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
       DoEvents
    Wend
    
    ie.Visible = True
    
    Dim htmldoc As HTMLDocument
    Dim htmlForms As IHTMLElementCollection
    Dim htmlForm As HTMLFormElement
    Dim HtmlElementStandard As HTMLGenericElement
    Dim LeTexteExtrait As String
    
    ' Set htmldoc = ie.document
    ' obtient collection des formulaire de la page
    'Set htmlForms = htmldoc.getElementsByTagName("tag")
    ' référence le formulaire de login
    'Set htmlForm = htmlForms.namedItem("frmLogin")
    ' remplit les cases
    Set oDoc = ie.document
    ' Valeur recherchée
    oDoc.getElementsByName("tag")(0).Value = "trait"
    oDoc.getElementsByTagName("form")(0).submit
    'Allons chercher ce texte dans notre Item46
    Dim iet As New InternetExplorer
    
    Set htmldoc = ie.document
    
    Set HtmlElementStandard = htmldoc.body.all(0)
    
    'On le place dans notre variable prévue à cet effet
    LeTexteExtrait = HtmlElementStandard.innerText
    'On affiche le texte
    MsgBox LeTexteExtrait, Title:="Le texte extrait de la page"
    
    End Sub

  3. #3
    cherbe

    Re : récupérer les données d'un service web sur Excel

    Citation Envoyé par saadmellas Voir le message
    Alors j'ai une application mobile qui envoie les données à un serveur, en utilisant des tags...
    Merci
    Ca veut dire quoi cette phrase ?

    Il faudrait aussi connaitre le code côté serveur.
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

Discussions similaires

  1. transfert de données excel vers une autre page excel
    Par invite595b98a5 dans le forum Logiciel - Software - Open Source
    Réponses: 38
    Dernier message: 01/10/2015, 13h36
  2. Récupérer données clé USB ?
    Par invite0c65432e dans le forum Électronique
    Réponses: 13
    Dernier message: 29/12/2013, 16h36
  3. Disque dur externe hors service/Récupérer les données ?
    Par invitecab4a1d3 dans le forum Matériel - Hardware
    Réponses: 9
    Dernier message: 30/10/2009, 19h17
  4. importation de données de excel dans R : données numériques non reconnues
    Par invitef67ae3c5 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 05/02/2009, 19h00
  5. Récupérer des données sur un DVD
    Par invite96ff024e dans le forum Matériel - Hardware
    Réponses: 4
    Dernier message: 04/08/2008, 20h25