Macro query table

Bonjour,

Je suis entrain de créer une macro qui à partir d'une query récupère les données d'un lien http.
Néanmoins j'ai un problème de limitation du nombre de caractère lorsque je renseigne le lien .

J'ai par exemple une soixantaine de matières à renseigner , si je le fais via une simple query je suis bloqué au bout de la 25ème je crois .

Je ne sais pas si il existe un autre moyen ( par exemple créer une liste sur un autre onglet et à la place de " port=" MATIERE & "&EXPTYPE=4&" mettre " port=" & liste_MATIERES & "&EXPTYPE=4&"

La macro ira dans l'onglet de la liste et cherchera de la ligne 2 à 100.
Chaque matières seront répartis sur 3 colonnes

Exemple de code à rajouter :

Code:

---

1 2 3 4 5 6

liste_fonds = "" For i = 2 To .Range("A100").End(xlUp).Row liste_fonds = liste_fonds & "," & .Range("A" & i) Next   liste_fonds = Right(liste_fonds, Len(liste_fonds) - 1)

---

Voici ma macro de base .

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

Sheets("IMPORT 1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://************************/indice/afficheMATIERE.asp?port=" & liste_MATIERES & "&EXPTYPE=4&" _ , Destination:=Range("A1")) .Name = _ "afficheTra.asp?port=SCIENCES,MATHS,INFO,ECO,DROIT,PHYSIQYE,COMPTA,******,*****,*****,****,****,********,********,******,******,******&EXPTYPE=4&" .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

---

J'espère avoir été le plus clair possible , si ce n'est pas le cas excusez moi
par avance