Rapport de message :*
 

Re: récuperation d'une page web

Titre du sujet : Re: récuperation d'une page web
par Mytå le 24/11/2011 02:51:14

 Re le forum

Je croyais que tu lançais la macro depuis la feuille "DonnéeWeb"
Sub Macro3()
With Sheets("DonnéeWeb")
  .Select
  .Cells.ClearContents
    With .QueryTables.Add(Connection:= _
        "URL;https://www.fdj.fr/jeux/euromillions/tirage", Destination:=Range( _
        "A1"))
        .Name = "search?hl=fr&q=fdj="
        .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 With
End Sub