Copier données d'une page web

j'ai un code qui fonctionne pas vraiment il me manque une partie des données que je voudrai copier.

" L'adresse du site :

"

Mon code :

Sub Macro3()

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;

", 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 = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "1,2,3,4,5"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

End Sub

il me manque les numéros du tirage

merci de votre aide

Bonsoir,

Si tu veux récupérer des informations a mon avis il faut créer des objets et affecter les résultats dans les objets ainsi créés.

Pour exemple le code ci dessous :

    Lien = ActiveSheet.Cells(a, 4)

    Set Photo = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 40, 10)
    Photo.Fill.UserPicture Lien

Amitié

Air_2