Requête Web avec URL variable

Pipou91 à dit:

Bonjour, newbie sur ce site et après des recherches je n'ai pas trouvé la solution à mon problème.
Je fais une requête web qui marche très bien mais je voudrai que l'adresse URL provienne d'une variable.
Exemple : Si j'ai valeur TOTO en case C1 je veux faire une macro qui génère la requête sur le lien Ce lien n'existe plus (nom du site juste pour l'exemple 🙂 )

Cliquez pour agrandir...

Sub requête_web() 
   With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.jzjcdzkjdej.com/" _
        & range("C1").value & ".html" , Destination:=Range("A2"))
        .Name = "ma_requete-web-avec-url-variable"
        .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 Sub

Pipou91 à dit:

Après installation d'un OFFICE2002 cela fonctionne sauf que aléatoirement j'ai une "erreur automation -2147483648

Cliquez pour agrandir...

Pipou91 à dit:

Je pense savoir ce qui cause mon problème mais je ne sais pas comment le résoudre.
Quand je lance la macro cela se positionne bien là ou je veux, par exemple en "A2", par contre si je la relance comme pour rafraichir cela ne va plus en "A2" mais à la suite de ce qui a été dèjà récuperer. Comment faire soit pour forcer sur "A2" (Range("A2").Select ça marche pas), soit une commande pour effacer le contenu de la page.

Cliquez pour agrandir...

Comment faire soit pour forcer sur "A2" (Range("A2").Select ça marche pas), soit une commande pour effacer le contenu de la page.

Cliquez pour agrandir...