Discussion :

[Sebphyto]

Bonjour à tous les membres du forum,

Après plusieurs requêtes web réalisées avec succès, me voilà confronté à un problème que je n'ai jamais rencontré....

Je souhaite me connecter à un site afin d'en récupérer des données (c le but d'une requête vous allez me dire )

Mais voici le souci:



J'ai donc essayé avec "importer données web"
et voici ce que j'obtiens



J'ai bien évidemment essayé avec d'autres liens mais sur ce site (ICI), excel ne veut rien savoir!!!!!!

Mon code:

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
23
24
25
26
27
28
29
30
Option Explicit
 
Sub RecupGenyCourses()
 
    With Sheets("Temp").QueryTables.Add(Connection:="URL;http://www.geny.com/partants-pmu/2015-05-19-longchamp-pmu-prix-des-gobelins_c714591", Destination:=Range("A1"))
        .Name = "GenyCourses"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        '.WebSelectionType = xlSpecifiedTables 'ici tables spécifique sinon table entière xlentiretables
        '.WebTables = "20,21,22,23,24,25,26" ' les tables sont récup dans le html avec F11 dans navigateur
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
        '.Delete
    End With
End Sub

Merci d'avance pour vos lumières

Seb A+