Pb Variable en fonction de cellules dans une boucle

Bonsoir,

J'ai actuellement un pb, je cherche à créer une boucle qui récupère des données web en fonction d'un url avec à la fin de cette url ce que j'appellerais le tag qui est récupéré dans une feuille appelée Matrice.

Cette boucle se répète 30 fois et le tag change 30 fois.

Les différents tags sont stocké dans la plage suivante [A23:A53]

Or mon pb c'est que j'arrive pas à faire en sorte que la variable Tag évolue.

Je vous mets une partie de mon code pour mieux comprendre :

 

    Sheets("Matrice").Select
    ' Variables :
    Dim Tag, A As String
    Dim i, ligne As Integer

    A = A
    i = 1
    ligne = 23
    While (i <= 30)
    i = i + 1
    Tag = [A & ligne]
    ligne = ligne + 1
    Sheets.Add after:=Worksheets(Worksheets.Count)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://monlien" & Tag, Destination _
        :=Range("$A$1"))

Je reselect la feuille Matrice en fin d'instruction dans ma boucle.

Quelqu'un aurait-il une solution à me proposer svp >.<

Bonsoir,

sur base de ce que je peux comprendre de ce code, tu écrases tes tags avec la réponse reçue au premier query web (tu mets la réponse dans ta feuille des tags à partir de A1)

Yop,

Non à chaque fois je créer une nouvelle feuille où les données sont importées, je la renomme avec le tag et je retournes sur la feuille matrice pour sélectionner le deuxième tag

Up !

Envoie-nous ton fichier et dis-nous ce que tu fais.