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-30T10:36:58+00:00

    J'ai testé la procédure avant de la publier et je n'ai eu aucun problème

    avec cette ligne de code " .Item(a).Delete", et les connexions ont

    toutes été supprimées.

    Si tu veux observer lesdites  connexions , elles sont visibles dans l'interface

    de calcul. (Barre des menus "Données" du ruban / Section : Connexions /

    Commande : Connexions ) Dans la fenêtre ouvrante, tu as la liste de toutes

    les connexions du classeur. À la limite, tu peux utiliser cette fenêtre pour

    supprimer ces  connexions , cependant, la procédure facilite le travail

    lorsque le travail doit s'insérer dans comme élément d'une procédure VBA.

    Cette procédure est indépendante de celle créant le QueryTable. Tu peux

    simplement l'appeler au début de la procédure principale.

    Dans l'interface du module VBA de ton classeur, barre des menus / Outils /

    Références / as-tu une référence qui soit cochée et qui est en même temps

    marquée "MANQUANTE"? Si oui, décoche cette référence.

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

    0 commentaires
  2. DanielCo 107.1K Points de réputation
    2014-10-30T09:16:36+00:00

    Bonjour,

    Peux-tu publier ton code après modification ?

    Daniel

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

    0 commentaires
  3. Anonyme
    2014-10-30T08:28:54+00:00

    Bonjour,

    .. et bien non, ça ne marche pas !

    Dans ma mini application de test avec une seule macro, la solution de Daniel a marché mais intégré dans mon application principale cela ne change rien....

    J'imagine dès lors que tu dois sans doute avoir raison et que ce classeur déborde d'historiques de connexions... j'ai dons inséré ta macro en la faisant tourne seule d'abord mais ici aussi elle reste bloquée dans la boucle...... faut-il l'insérer dans la macro de requête et où ?

    Sub clea()

    Dim Nb As Long, N As Name

    With ThisWorkbook.Connections

    Nb = .Count

    For a = 1 To Nb

        .Item(a).Delete

    Next

    End With

    For Each N In ThisWorkbook.Names

    N.Delete

    Next

    End Sub

    qu'est ce que je fais mail ?

    merci pour ton assistance....

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

    0 commentaires