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-11-03T13:56:53+00:00

    Mon Cher MichD, c'est PARFAIT et cette fois je suis sauvé.

    Je dois maintenant adapter ta macro à une quinzaine d'autres indices.

    Les sites WEB sur lesquels les macros que vous m'avez envoyées marchent bien sont tous USA et ne reprennent pas toujours des produits européens que je trouvais sur le site de la "DAB Bank".

    Il me reste de les consulter "à l'œil" et de reporter manuellement les infos.......  !

    Mais pourquoi ça marche avec Excel7... et pas sur 10 ou 13 qui devraient être plus évolués ?

    Pourquoi ça a marché jusqu'au +/- 10 octobre sur Excel10 ?   

    Cela ne vaut-il pas la peine de poser la question au labo de développement ? 

    DANS TOUS LES CAS, UN GRAND MERCI POUR VOTRE EFFICACITE

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

    0 commentaires
  2. Anonyme
    2014-11-03T12:44:17+00:00

    Bonjour,

    Cette macro extrait la valeur que tu cherches : DAX:IND 9325,25

    Cela prend quand même quelques secondes...

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

    Sub test()

    Dim Sh As Worksheet, V As String

    Application.ScreenUpdating = False

    'Une feuille est ajoutée temporairement pour

    'recevoir les données puis ensuite supprimée

    Set Sh = Worksheets.Add

    With Sh.QueryTables.Add(Connection:= _

            "URL;http://www.bloomberg.com/quote/DAX:IND", Destination:=Range("$A$1"))

            .Name = "IND_1"

            .FieldNames = True

            .RowNumbers = False

            .FillAdjacentFormulas = False

            .PreserveFormatting = True

            .RefreshOnFileOpen = False

            .BackgroundQuery = True

            .RefreshStyle = xlInsertDeleteCells

            .SavePassword = False

            .SaveData = True

            .AdjustColumnWidth = True

            .RefreshPeriod = 0

            .WebSelectionType = xlEntirePage

            .WebFormatting = xlWebFormattingNone

            .WebPreFormattedTextToColumns = True

            .WebConsecutiveDelimitersAsOne = True

            .WebSingleBlockTextImport = False

            .WebDisableDateRecognition = False

            .WebDisableRedirections = False

            .Refresh BackgroundQuery:=False

        End With

        On Error Resume Next

        V = Sh.Cells.Find(What:="DAX:IND ", LookIn:=xlValues, LookAt:=xlPart)

        Application.DisplayAlerts = False

        Sh.Delete

        Application.DisplayAlerts = True

        Application.ScreenUpdating = False

        MsgBox "La valeur que tu recherches : " & V

    End Sub

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

    Pour ce qui est de cette adresse, il y a toujours un problème, Excel ne réussit pas à extraire les données.

    http://boerse.dab-bank.de/maerkte-kurse/indizes/indizes-suche/id\_20735.html?idNotation=20735&factsheetTab=overview

    Est-ce réellement le seul site où tu peux extraire ces données?

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

    0 commentaires
  3. DanielCo 107.1K Points de réputation
    2014-11-03T10:13:20+00:00

    Bonjour,

    Réponse provisoire : comme je l'ai déjà dit, la macro fonctionne avec Excel 2007. Elle ne fonctionne pas avec Excel 2010 pas plus qu'avec Excel 2013.

    Daniel

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

    0 commentaires