Donner une valeur de paramètre automatiquement dans une macro

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai créé une macro (Excel 2013) pour ouvrir des pages internet automatiquement et récupérer certaines informations avec la fonction QueryTables
Le problème c'est que à chaque fois avant d’ouvrir la page internet il ouvre une boite de dialogue et me demande de mettre une "valeur de paramètre" et ceci à 4 reprises avant d'ouvrir la page
Pièce jointe 302981
Ça casse donc complètement le côté automatique de la macro d'autant qu'elle me permet d'ouvrir plusieurs pages
Je pense que ça vient l'URL de la page internet quoi cherche des données dans une BDD
Ce que j'aimerais c'est pouvoir donner une valeur de paramètre automatiquement et ceci dans la macro
Car finalement cette valeur n'a pas d'importance quelque soit celle je mets la page internet s'ouvre sans problème

Merci beaucoup d'avance à tous pour votre aide
JcJaZz

PS : ci-dessous la macro simplifiée en question (sans la boucle)
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 Sub Macro1() ' ' Macro1 Macro ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://fr.soccerway.com/teams/comparison/?competition_ids%5B%5D=26&team_ids%5B%5D=323&competition_ids%5B%5D=26&team_ids%5B%5D=313" _ , Destination:=Range("$A$1")) .Name = _ "?competition_ids%5B%5D=26&team_ids%5B%5D=323&competition_ids%5B%5D=26&team_ids%5B%5D=313" .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 = xlWebFormattingRTF .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub

19/08/2017, 10h18
EricDgn

Bonjour,
Je n'ai pas de solution. La seule chose que je puisse signaler est que le problème vient du fait que l'adresse http contient les caractères [ ] (%5B%5D dans l'adresse) qui sont interprétés par Excel comme autant de demandes de paramètre.
//fr.soccerway.com/teams/comparison/?competition_ids[]=26&team_ids[]=323&competition_ids[]=26&team_ids[]=313
Bonne continuation.

bonjour,
Apparemment ça marche très bien sans : YAKA s'en passer !

Code:

1
2
3
4
5
6
7
8
Sub Macro1()
Dim SStr$
SStr = "?competition_ids=26&team_ids=323&competition_ids=26&team_ids=313"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://fr.soccerway.com/teams/comparison/" & SStr, Destination:=Range("$A$1"))
.Name = SStr
.FieldNames = True
'la suite sans changement...

A+

21/08/2017, 10h37
JcJaZz

Merci beaucoup à tous les deux pour vos réponses

Effectivement comme le propose galopin 01 si je supprime les caractères %5B%5D dans l'adresse URL, la fenêtre "demande de paramètre" ne s'ouvre plus
Ça c'est un bon point
Mais par contre, la page internet copiée dans Excel ne contient pas toutes les informations et en particulier des tableaux de données qui justement m'intéressent et que je voudrais récupérer !
On a fait un pas mais je suis confronté maintenant à ce manque de données

Bien à vous deux

Il semble que cette autre chaîne convienne :
Code:

1 2 3 4 5 6 7 Dim SStr$ SStr = "?competition_ids%5B1%5D=26&team_ids%5B2%5D=323&competition_ids%5B3%5D=26&team_ids%5B4%5D=313" With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://fr.soccerway.com/teams/comparison/" & SStr, Destination:=Range("$A$1")) .Name = SStr .FieldNames = True 'la suite sans changement...
Nota : j'ai utilisé les paramètres 1,2,3,4 parce que tu as dit que n'importe quoi convenait...
Mais ça n'empêche pas de tester d'autres valeurs pour voir s'il y a une (des) différence(s)
A+

21/08/2017, 23h33
JcJaZz

Super ça fonctionne !!!
Merci beaucoup pour ton aide