IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

comment extraire des données sur internet via un programme vba ?


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    enquiquineur d'unparia
    Inscrit en
    Février 2014
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : enquiquineur d'unparia

    Informations forums :
    Inscription : Février 2014
    Messages : 82
    Par défaut comment extraire des données sur internet via un programme vba ?
    Hello Alain, Hello à tous!

    J'ai lu cette discussion.
    Citation Envoyé par AlainTech Voir le message
    Bonjour,

    Je ne comprends toujours pas pourquoi vous essayez de remplir le calendrier alors qu'il est possible d'atteindre la bonne page par l'URL.

    Enfin... Pourquoi faire simple quand on peut faire compliqué???

    Je reprend le code et malheuresement je n'arrive pas à faire fonctionner le tiens (celui de Henri marche par contre, mais il m'a l'air un peu plus 'bourrin')
    Je ne suis pas à l'aise en HTML et je ne comprend pas trop comment tu navigues dans les items, et je me demande si le site n'a pas changé (ce qui expliquerait peut être pourquoi il ne trouve rien).
    Doit-on reproduire dans les boucle de recherche l'arborescence des balises ?

    Du coup je pense que c'est cette partie là qui ne match plus :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    For Each oDiv In oDoc.getElementsByTagName("DIV")
          If oDiv.className = "bd" Then
            If InStr(1, oDiv.innerHTML, "PMSelect") > 0 Then
              Set oTable = oDiv.Children(2)
              strDernEch = oTable.Cells(2).outerText
              Exit For
            End If
          End If
    Next oDiv

    Voici le lien que j'utilise comme exemple : http://www.boursorama.com/cours.phtm...ate=2008-01-30
    Et la valeur que j'essaye d'avoir sur la page est celle face au champ : Dernier échange

    Merci d'avance !

    MonSavon

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Bonjour,

    En analysant la source de la page, on constate que la String "PMSelect" n'y est pas (plus) présente.

    Par contre, il y a une table <table class="info-valeur list"> contenant la valeur que tu cherches.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

Discussions similaires

  1. Extraire des données sur internet.
    Par lovlov33 dans le forum Général VBA
    Réponses: 1
    Dernier message: 06/06/2014, 12h19
  2. VBA- comment extraire des données sur internet via un programme vba ?
    Par cecile_64 dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 17/08/2012, 15h37
  3. Réponses: 1
    Dernier message: 03/01/2010, 12h49
  4. Réponses: 1
    Dernier message: 31/12/2009, 11h22
  5. Réponses: 4
    Dernier message: 29/09/2009, 16h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo