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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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