[VBA-E] QueryTables dans une boucle

bonjour,

J'utilise la méthode QueryTables.Add dans une boucle pour exécuter des requêtes SQL.

Le hic est que cette méthode génère autant de connexion que de select (conséquence sur Excel et performance).

Existe-t-il une méthode permettant de supprimer une connexion après avoir exécuter une requête; du style (cette syntaxe ne marche evidement pas)

Code:

---

1 2	Sheets(feuille1).QueryTables.Delete

---

Merci

Tu devrais t'en sortir avec ca...

Code:

---

1 2 3 4 5 6

Sub DeleteAllQueryTables() Dim QT As Excel.QueryTable For Each QT In Feuil2.QueryTables QT.Delete Next QT End Sub

---

Merci,

Une autre astuce consiste à envoyer les réponses à la requête sur une même ligne puis on recopie le résultat de cette ligne là où l'on souhaite.
Ainsi :
- les tables sont écrasés au fur et à mesure pour garder à la fin qu'une connexion
- les performances ne sont pas dégrader pour autant par les copies

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For i = 2 To 703 ' init requete SQL ReqSql = "SELECT ..." ' Execute requete SQL With Sheets("DATA").QueryTables.Add(Connection:= ... Destination:=Range("DATA!A1")) End With 'copie du résultat là où l'on souhaite colonne par colonne For col = 1 To 13 Sheets("IDComments").Cells(i, col) = Sheets("DATA").Cells(1, col) Next col Next i

---

merci