Problème d'importation de données d'un site web

Bonjour,

Voici mon problème, en utilisant cette macro je n'arrive pas a importer les tableaux de la page web :

http://www.le-paddock.fr/evolucote/cote-pmu/

Sheets("feuil1").Select

With Sheets("feuil1").QueryTables.Add(Connection:="URL;http://www.le-paddock.fr/evolucote/cote-pmu/", Destination:=Sheets("feuil1").Range("A1"))

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = True

.PreserveFormatting = True

.RefreshOnFileOpen = True

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = False

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlEntirePage

.WebFormatting = xlWebFormattingNone

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = True

.WebDisableDateRecognition = True

.WebDisableRedirections = True

.Refresh BackgroundQuery:=True

End With

End Sub

Merci pour vos réponses

Bonsoir,

A tester.

Cdlt

Option Explicit
Public Sub test_jep()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.le-paddock.fr/evolucote/cote-pmu", Destination:=Range("$A$1"))
        .Name = "cote-pmu"
        .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
End Sub

Bonsoir merci pour votre réponse mais ça ne fonctionne pas j'ai pas les tableaux des cotes

c'est ceci que je voudrais importer

Cote PMU

(Actualisation automatique toutes les 20 secondes)

Deauville (R1)

Nantes (R2)

Cabourg (R3)

Mons (R4)

1 - Prix de Mondeville

Ch. 1 2 3 4 5 6 7 8 9 10 11 12

Ct. - - - - - - - - - - - -

2 - Prix du Chenet

Ch. 1 2 3 4 5 6 7 8 9 10 11 12 13 14

Ct. - - - - - - - - - - - - - NP

3 - Prix du Houlbec

Ch. 1 2 3 4 5 6 7 8 9

Ct. - - - - - - - - -

4 - Prix du Pays d'Ouche

Ch. 1 2 3 4 5 6 7 8 9 10 11

Ct. - - - - - - - - - - -

5 - Prix de l'Aigle

Ch. 1 2 3 4 5 6 7 8 9

Ct. - - - - - - - - -

6 - Prix de Rugles

Ch. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Ct. - - - - - - - - - - - - - - -

7 - Prix de Fontaine

Ch. 1 2 3 4 5 6 7 8 9 10 11

Ct. - - - - - - - - - - -

8 - Prix de la Bourdonnière

Ch. 1 2 3 4 5 6 7 8 9 10 11 12 13 14

Ct. - - - - - - - - - - - - - -

9 - Prix de la Roche

Ch. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Ct. 5.1 24.8 24.7 22.6 12.2 15.9 14.0 14.6 6.7 20.1 22.8 20.1 21.3 10.4 17.1 15.5

cordialement

Re,

A première vue, le PMU n'autorise pas cette pratique.

Je ne peux pas t'aider. Désolé

Cdlt