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 :

Récupération de pages INTERNET sous VBA


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Récupération de pages INTERNET sous VBA
    Bonjour

    Depuis des années, je récupère des données sur INTERNET sous VBA avec EXCEL 2007 puis 2010 avec la macro suivante :

    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
    1210      With BROUILLON.QueryTables.Add(Connection:="URL;" & adressehttp, Destination:=BROUILLON.Range("$A$1"))
    1220    .Name = Mid(adressehttp, InStrRev(adressehttp, "/") * 1)
    1230    .FieldNames = True
    1240    .RowNumbers = False
    1250    .FillAdjacentFormulas = False
    1260    .PreserveFormatting = True
    1270    .RefreshOnFileOpen = False
    1280    .BackgroundQuery = True
    1290    .RefreshStyle = xlInsertDeleteCells
    1300    .SavePassword = False
    1310    .SaveData = True
    1320    .AdjustColumnWidth = True
    1330    .RefreshPeriod = 0
    1340      .PreserveColumnInfo = True
    1360      .WebSelectionType = xlEntirePage 
    1380    .WebPreFormattedTextToColumns = True '1 false
    1390    .WebConsecutiveDelimitersAsOne = True
    1400    .WebSingleBlockTextImport = True 'false
    1410    .WebDisableDateRecognition = True
    1420    .WebDisableRedirections = False
    1430   .Refresh BackgroundQuery:=False
    1440     End With


    adressehttp contient une adresse INTERNET sous la forme http:// etc
    BROUILLON est une page de mon fichier EXCEL

    Je pouvais récupérer n'importe quelle page INTERNET toutes les semaines pendant des années. Depuis quelques jours je n'ai plus rien dans la page BROUILLON et je n'arrive pas à comprendre pourquoi.
    Comment dois-je modifier mon instruction ? ou y a-t-il un autre moyen de récupérer une page INTERNET ?
    Merci d'avance

  2. #2
    Responsable
    Office & Excel

    Salut.

    Tu as vérifié avec d'autres pages internet? Peut-être la page internet ne sert-elle plus les données de la même façon depuis quelques jours...
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre du Club
    Récupértion INTERNET
    Bonjour
    Le contenu de la page n'est pas en cause. J'en ai essayé plusieurs. Si j'utilise l'adresse manuellement c'est OK. C'est vraiment la requête qui pose problème.

  4. #4

  5. #5
    Responsable
    Office & Excel

    Je viens de tester sur un https et cela fonctionne (à part le PreservercolumnInfo que j'ai dû commenter, mais ce n'est pas là le problème.

    Pourrait-on avoir les adresses que tu utilises?
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  6. #6
    Membre du Club
    Récupération INTERNET

  7. #7
    Responsable
    Office & Excel

    Ca récupère quelque chose chez moi. Tu n'a donné que le code du bloc de récupération. qu'est-ce qu'il y a avant? As-tu une gestion d'erreur qui pourrait poser problème? As-tu testé en pas-à-pas pour voir si ton code passe bien sur les lignes que tu nous as renseignées?


    Résultat de la requête:
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  8. #8
    Membre du Club
    Juste avant je renseigne adressehttp et juste après je teste le contenu de BROUILLON. J'ai bien testé pas à pas.
    Je ne comprends pas ce que tu récupères (il me manque le code) : si tu cliques sur l'adresse que je t'ai envoyée tu obtiens la liste des 3000 joueurs du classement ATP, celle que je devrais avoir dans BROUILLON.
    Je t'envoie le code de la macro mais je ne pense pas que ça puisse t'aider.

###raw>template_hook.ano_emploi###