Requête Web avec URL variable

[Pipou91]

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 🙂 )
Est ce possible ?
J' espère avoir été assez clair, c'est pas évident d'expliquer par écrit.
Merci d'avance pour vos propositions.
A charge de revanche car en parcourant le forum je pense que je pourrai dépanner de temps en temps

Pierre

 

[gbinforme]

Re : Requête Web avec URL variable

Bonjour Pipou91, le forum,

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 🙂 )

"Si j'ai valeur TOTO en case C1", tu peux effectivement en créant la macro suivante,
et en adaptant la destination selon ton désir : j'ai mis A2

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]

Re : Requête Web avec URL variable

Merci pour l'aide, mais la macro bloque sur :
WebDisableRedirections = False
Cela me met ERR 438 Propriété ou méthode non gérée par cet objet.
Et je cale vraiment
Une idée ?
Merci

 

[Pipou91]

Re : Requête Web avec URL variable

Après recherches je pense que mon excel2000 n'est pas assez jeune, il faut 2002 je crois.
A suivre ....

 

[Pipou91]

Re : Requête Web avec URL variable

Bonsoir,
Après installation d'un OFFICE2002 cela fonctionne sauf que aléatoirement j'ai une "erreur automation -2147483648 et malgré recherches google et forum je ne trouve pas la solution.
Et oui j'ai encore besoin de votre aide.
Merci d'avance
Pierre

 

[gbinforme]

Re : Requête Web avec URL variable

Bonsoir Pipou91, le forum,

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

Je n'ai jamais eu ce genre d'erreur en utilisant cette fonction donc pas d'expérience significative.

Il me semble que ce pourrai être dû soit à la rémanence de certains objets incorrectement fermés ou initialisés soit à des différences de versions de certains composants : ce ne sont que des pistes..

 

[Pipou91]

Re : Requête Web avec URL variable

Bonjour le forum,
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.
Merci d'avance
Pierre

 

[gbinforme]

Re : Requête Web avec URL variable

Bonjour Pipou91, le forum,

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.

Cela me parait curieux car j'ai plutôt eu du mal pour ajouter les requêtes et normalement,
avec " .RefreshStyle = xlInsertDeleteCells", cela devrait remplacer.

C'est en tout cas ce qui se produit dans mes essais et si je remplace A2 par a25,
cela fonctionne aussi.

 

[MJ13]

Re : Requête Web avec URL variable

Bonjour à tous.

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

Essaies en enregistrant une macro en sélectionnant ta requête (clic droit)et en la supprimant. Tu devrais pouvoir récupérer le code.