Discussion :

[MikeBusters]

Bonjour à tous,

Dans le cadre de mon travail, je dois réaliser une macro Excel qui doit "aspirer" des données de site Web.

Pour se faire, j'aimerais intégrer une InputBox où l'on peut entrer un site Web et que ses données soient intégrer à la feuille Excel.

J'ai du mal avec la variable resultat (ligne 11) pour la placer et à l'arrivée l'erreur 1004 "Erreur définie par l'application où l'objet" apparaît.

Merci d'avance pour votre aide.

Voici 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
31
32
33
34
35
 Sub Recherche_aspiration_données()
'
    Sheets("TEMP").Cells.Clear
    Sheets("ACCUEIL").Cells.Clear
 
    Dim resultat As String
 
    resultat = InputBox("Entrez l'adresse : ", "Site Web") 'La variable reçoit la valeur entrée dans l'InputBox
 
 
    With Sheets("TEMP").QueryTables.Add(Connection:="resultat", Destination:=Sheets("TEMP").Range("$A$1"))
        .Name = _
        "recherche?orderby=position&controller=search&orderway=desc&search_query=michelin"
        .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
        .RefreshBackgroundQuery = False
    End With
 
End Sub

[Menhir]

Enlève les guillemets de résultat.

[MikeBusters]

Même problème, le programme me retourne l'erreur 1004.

Je pense qu'il manque une ligne de code pour faire en sorte que le variable resultat soit bien reconnu comme une URL, mais je coince ...

[Marc-L]

Bonjour !

Merci d'utiliser l'icône dédiée pour baliser le code afin ensuite d'indiquer le n° de la ligne déclenchant l'erreur.

Si la fonction d'importation de données externes fonctionne manuellement sous Excel alors
activer l'Enregistreur de macro puis réitérer l'opération :  une base de code est livrée sur un plateau !
QueryTable ne fonctionnant pas avec toutes les pages du net, loin de là …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Même problème

C'est un point de vue que je ne partage pas.
Avant, c'est ta syntaxe qui était fausse. Maintenant, c'est la valeur que tu saisies.
Malheureusement, sur ce second point on ne peut rien faire, excepté suivre la judicieuse remarque de Marc-L pour avoir une chance de savoir quelle valeur correcte peut être saisie pour que ça fonctionne.

[Marc-L]

[…] faire en sorte que la variable resultat soit bien reconnu comme une URL

Comme déjà indiqué par Menhir (Salut !), une variable entre guillemets n'est pas une variable mais juste du texte !
Sans guillemet cela redevient une variable …