Problème macro Excel avec erreur 1004

Version imprimable

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:

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

08/03/2018, 17h26
Menhir

Enlève les guillemets de résultat.
09/03/2018, 13h56
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 ... :?
09/03/2018, 14h00
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, …
09/03/2018, 15h52
Menhir

Citation:

Envoyé par MikeBusters

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.
09/03/2018, 17h48
Marc-L

Citation:

Envoyé par MikeBusters

[…] 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 …