Bonjour a tous,

j'ai un petit soucis et après multiple recherche sur internet je n'arrive pas à trouver ce que je veux ^^'
j’espère que je sais rechercher car sinon je vais me faire engueuler !

Donc en gros j’aimerais aller chercher sur internet des informations
en particulier google,

j'ai déjà un code qui récupérer les info sauf que cela ne marche par quand je met l'URL d'une recherche google :
Voici le 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
        sadr = "URL;" & "https://fr.wikipedia.org/wiki/" & Recherche
 
        With Sheets("TEMP").QueryTables.Add(Connection:=sadr _
            , Destination:=Sheets("TEMP").Range("$A$1"))
            .Name = ""
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
 
        End With
Merci de votre aide