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 :

probleme code VBA Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Analyse système
    Inscrit en
    Mai 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2015
    Messages : 23
    Par défaut probleme code VBA Excel
    salut les amis j un classeur de statistique de football de grande taille je ne peut le mettre tout ici donc je va trancher une partie de code pour l expliquer alor :
    la classeur contient plusieur feille l`un d`eux elle est nomer "odds" ou le code va copier les cote de hf-ft appartir de site flashscore.com ou j resussi ici mais les autre non .
    ce que je veux et de copier tout les cote disponible appartir de ce site mais j arrive pas.
    aidez mois svp

    le code est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub odds(match_id)
        ThisWorkbook.Sheets("ODDS").Range("A2:C3000").ClearContents
        TableRow = 2
        Set http = CreateObject("MSXML2.XMLHTTP")
        http.Open "GET", "https://d.flashscore.com/x/feed/d_od_" & match_id & "_en_1_eu", False
        http.setRequestHeader "X-Fsign", "SW9D1eZo"
        http.Send: DoEvents
        fs_input = http.ResponseText
        fs_input = Replace(fs_input, Chr(9), "")
        fs_input = Replace(fs_input, Chr(10), "")
        fs_input = Replace(fs_input, Chr(13), "")
        Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Global = True
        objRegExp.MultiLine = True
        objRegExp.Pattern = "block-ht-ft-ft(.*?)block-correct-score-ft"
        If objRegExp.test(fs_input) = True Then
            Set objMatches = objRegExp.Execute(fs_input)
            fs_input = objMatches.Item(0).submatches(0)
            objRegExp.Pattern = "<tr(.*?)<td(.*?)title=" & Chr(34) & "(.*?)" & Chr(34) & "(.*?)htft(.*?)>(.*?)<(.*?)odds-wrap(.*?)>(.*?)<(.*?)tr>"
            If objRegExp.test(fs_input) = True Then
                Set objMatches = objRegExp.Execute(fs_input)
                For Each m In objMatches
                    ThisWorkbook.Sheets("ODDS").Range("A" & TableRow).Value = m.submatches(2)
                    ThisWorkbook.Sheets("ODDS").Range("B" & TableRow).Value = m.submatches(5)
                    ThisWorkbook.Sheets("ODDS").Range("C" & TableRow).Value = m.submatches(8)
     
                    TableRow = TableRow + 1
                Next
            End If
        End If
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 432
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 432
    Par défaut
    Bonjour,

    Pour ma part, pas possible de vous aider car il ne m'a pas été possible de charger une page.
    Il faudrait que vous donniez
    - soit un lien qui permet de charger une vraie page (match_id = ???), même par un non abonné;
    - soit donner un exemple de contenu d'une réponse reçue (http.ResponseText).

    Cordialement.

Discussions similaires

  1. Code VBA excel form et modules
    Par Cptnikita dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 28/10/2007, 10h15
  2. Probleme en VBA Excel : supprimer une ligne doublante
    Par yanly dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/07/2007, 13h54
  3. [VBA-E]Probleme macro VBA excel 2000 2003
    Par skichatchat dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/04/2007, 21h16
  4. Probleme code vba
    Par alex38 dans le forum Access
    Réponses: 6
    Dernier message: 18/04/2006, 12h10
  5. probleme code vba ne s'execute pas apres instruction sql
    Par arnogef dans le forum Requêtes et SQL.
    Réponses: 9
    Dernier message: 29/12/2005, 12h34

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