requete sur le WEB

Anonyme
2014-10-28T10:19:07+00:00

Bonjour,

J'utilise cette macro VBA en Windows7 et Excel 2010 depuis plusieurs années pour consulter un site sur le WEB et importer des données dans une application Excel.....  depuis 15 jours elle ne fonctionne plus... et reste bloquée sur l'instruction en gras, j'ai essayé de faire des requêtes par "données/ requête sur le WEB"sans plus de succès....

J'ai absolument besoin de trouver une solution.....   qui peut m'aider ? help !!!!!

A l'avance merci,

Sub dax()

    Sheets("Base").Activate

Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Sheets("tempo").Activate

Dim Tablo() As Variant, C As Variant, Cible As Object

Dim Tempo As Worksheet, Qaddress As String

Dim URL1 As String, BaseUrl As String, Quoi As String

Dim Y As Long, Ky&, Start&

Quoi = "Vente"

Application.Calculation = xlCalculationManual

BaseUrl = "URL;http://www.bloomberg.com/quote/DAX:IND"

Set Tempo = Feuil2

With Feuil2

.Activate

.UsedRange.Clear

  URL1 = BaseUrl & C

  With Tempo.QueryTables.Add(Connection:=URL1, Destination:=Tempo.Range("A2"))

    .BackgroundQuery = False

    .WebFormatting = xlWebFormattingNone

    .WebTables = "28"

    .TablesOnlyFromHTML = False

    .RefreshOnFileOpen = False

    .Refresh BackgroundQuery:=False

    .SaveData = True

     Set Cible = Range("A1:CQ9000").Find(Quoi, LookIn:=xlValues)

  End With

End With..... etc.....pour chercher et formater le cours recherché....

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2014-10-28T20:05:55+00:00

Si la suggestion de Daniel ne répond pas à tes attentes,

Explique ce que tu fais dans ce classeur.

Est-ce que tu répètes toujours la même macro?

Si tu veux rafraîchir les données du QueryTable en utilisant toujours la

même requête, c'est ligne de code est suffisante... Adapte le nom de la feuille

Feuil2.QueryTables(1).Refresh BackgroundQuery:=False

À chaque fois que tu exécutes la macro, une connexion s'ajoute au classeur et

aussi une plage nommée du nom du QueryTable. La procédure suivante supprime

toutes les connections du classeur et les plages nommées. Après quoi, tu peux

employer ta macro si c'est cela que tu préfères...

'-------------------------------------------------

Sub test()

Dim Nb As Long, N As Name

'Suppression de toutes les connections du classeur

With ThisWorkbook.Connections

    Nb = .Count

    For a = 1 To Nb

        .Item(a).Delete

    Next

End With

'Suppression de tous les noms du classeur.

For Each N In ThisWorkbook.Names

    N.Delete

Next

End Sub

'-------------------------------------------------

Cette réponse a-t-elle été utile ?

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.1K Points de réputation
2014-10-28T19:30:35+00:00

Essaie donc, au lieu de recréer ta connexion :

ActiveWorkbook.Connections("Connexion").Refresh

en reprenant le nom de ta connexion. Sinon, essaie aussi avec :

.Refresh

au lieu de :

.Refresh BackgroundQuery:=False

Daniel

Cette réponse a-t-elle été utile ?

0 commentaires

29 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2014-10-28T11:17:54+00:00

    Bonjour et  d'abord un grand merci à Daniel.. mais c'est justement là mon problème... j'ai testé cette macro sur un autre ordi et ça marche aussi mais chez moi je tourne en rond (c'est le cas de le dire le petit anneau tourne... tourne)   sur l'instruction

    .Refresh BackgroundQuery:=False

    Merci aussi  à MichD, mais clairement ça marche... donc pas un problème de table, mais pas chez moi ! 

    j'imagine donc que le problème est "dans Windows7" ou dans "Excel" ?

    Merci à ceux qui peuvent m'aider.....

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2014-10-28T10:50:46+00:00

    Bonjour,

    Il y a des bonnes chances que le site Web a modifié la présentation de leur site Web. Cette ligne de code  .WebTables = "28"  indique à la requête dans quel tableau du site Web les données se retrouvent. Est-ce que ce tableau (28) existe-t-il encore sur le site Web?

    Je te fais remarquer que certains sites n'utilisent pas de tableau pour afficher leurs données. Ce type de macro est alors inefficace.

    Au besoin, tu peux regarder dans le code de la page Web (dans Internet Explorer / affichage / source)

    et tu regardes si l'expression "Table" existe. Dans cette page, tu devrais retrouver le numéro de la "table" qui correspond à tes données. Essaie en comptant les occurrences de l'expression du début du code jusqu'aux données.

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. DanielCo 107.1K Points de réputation
    2014-10-28T10:42:41+00:00

    Bonjour,

    J'ai testé ton code. Je ne reproduis pas le problème. Quel est le message d'erreur ? Autrement, si tu exécutes la macro sur le même classeur, tu ajoutes à chaque fois une connexion dans le classeur. A la longue, ça peut gêner.

    Cordialement.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires