Problème fonction QueryTables

Bonjour,

Pour mon travail j'utilise des tables SQL que je code sous VBA.

Puis par la suite, je dois les afficher dans un onglet spécifique, à un endroit spécifique. Rien de bien folichon, à part que je suis nul en VBA (mais genre vraiment quoi), du coup je ne comprends pas mes erreurs.

Voici le code utilisé pour afficher une table SQL :

Code:

---

1 2 3 4

Connstring = "ODBC;DSN=BDD_ENTREPRISE;UID=" & Login & ";PWD=" & Password & ";BaseDeDonnées=" & "BaseExtraite" With ActiveSheet.QueryTables.Add(Connection:=Connstring, Destination:=Range("A1"), Sql:=SQLstring) .Refresh (False) End With

---

J'en ai trois comme ça, à ceci près que je ne comprends pas pourquoi cela ne fonctionne pas dans la troisième.

Je vous remercie d'avance et vous souhaite une très bonne journée.