Discussion :

[canorra]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets(feuille1).QueryTables.Delete

Merci

[Vesta]

Tu devrais t'en sortir avec ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[canorra]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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