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-29T10:55:52+00:00

    je ne comprendrai jamais rien au mystère de ce langage incongru qu'est VBA... mais merci Daniel

    en supprimant le    BackgroundQuery:=False     ca MARCHE !

    MichD, je teste ta macro, merci, toutefois, mais en créant une nouvelle application de test, ma macro reste aussi bloquée donc je ne pense pas que le cumul de connexions se pose, d'autant que passant sur un autre ordi... ça marche.

    Je garde ta macro et vais l'essayer.

    BREF JE SUIS DEPANNE Merci,

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

    0 commentaires
  2. Anonyme
    2014-10-28T18:53:51+00:00

    oui...oui j'ai essayé ça aussi : créer une mini application de test, et il n'y a pas de message ni de réponse sinon que ça tourne en rond et reste bloqué sur cette instruction en gras.... je soupçonne dès lors un bug

    en Windows ou dans Excel....  problème qui s'adresse, je suppose à un support technique , cela existe t il sur ce forum.... ?

    J'ai eu Microsoft support au téléphone et ce sont eux qui m'ont orienté sur le forum.... ?

    Merci à toute assistance,

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

    0 commentaires
  3. Anonyme
    2014-10-28T11:52:21+00:00

    As-tu essayé ta macro dans un nouveau fichier?

    As-tu un message d'erreur? Si oui, lequel?

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

    0 commentaires