executer un script SQL à partir de Excel

Bonjour ,

Je travaille sur Excel 2007, je dois executer une requête à partir d'un boulon sur Excel qui utilise une macro.
j'ai fait un code et il marche hyper bien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Teste_Emprunt() ' Declare the QueryTable object Dim qt As QueryTable   ' Set up the SQL Statement sqlstring1 = "select distinct(EE.IdEmprunt),CC.idClient, CC.LbNom, EE.CdRefClient, BB.LbNomCourt as Banque, EE.DtRealisation, EE.DtFinDette from _Ref_EtatEmprunt RE, Emprunt EE join Client CC on EE.idClient = CC.idClient join Banque BB on EE.idBanque = BB.idBanque join EcheanceAmortissement EA on EE.IdEmprunt = EA.IdEmprunt where CC.IdTypeCompte=0 and EA.FlCRD<0 and RE.IdEtatEmprunt in (1) ORDER BY CC.IdClient ASC "   sqlstring2 = "select * from Client"   ' Set up the connection string, reference an ODBC connection ' There are several ways to do this ' Leave the name and password blank for NT authentication connstring1 = _ "ODBC;DSN=pubs;UID=;PWD=;Database="   ' Now implement the connection, run the query, and add ' the results to the spreadsheet starting at row A1 With Sheets("Data1").QueryTables.Add(Connection:=connstring1, Destination:=Range("Data1!A3"), Sql:=sqlstring1) .Refresh End With   End Sub

---

le problème c'est que au lieu d'écrire la requête dans le code "sqlstring2 = "select * from Client"", je veux faire "sqlstring2 = "c:\script.sql""
==> je veux exécuter le script que j'ai dans un fichier .sql.

je ne sais pas comment faire. :arf:

Aidez moi SVP :?

Merci d'avance

Bonjour,

J'ai trouvé ce code qui devrait faire l'affaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub lireFichierTexte() Dim infosLigne As String Dim i As Integer, x As Integer Dim Tableau() As String   Open "C:\test.txt" For Input As #1 Do While Not EOF(1) Line Input #1, infosLigne i = i + 1 Tableau = Split(infosLigne, ";") 'le separateur est le point virgule For x = 0 To UBound(Tableau) Cells(i, x + 1) = Tableau(x) Next Loop Close #1 End Sub

---

S'il n'y a qu'une seule ligne sans besoin de séparation on peut le simplifier

Il faut aussi :
- adapter le nom du fichier
- remplir une variable (sqlstring2) au lieu de cellules

Merci pour le code.

Je l'ai essayé mais j'arrive pas à faire l'appel de "lireFichierTexte" dans mon code :

Code:

---

1 2 3

With Sheets("Data1").QueryTables.Add(Connection:=connstring1, Destination:=Range("Data1!A3"), Sql:=??) .Refresh End With

---

je ne sais pas comment je peux appeler le sub lireFichierTexte ??

Dans l'exemple la routine lirefichiertexte() renseigne la variable tableau.
Il faut que tu utilises la valeur de cette variable pour ta chaine de requête.

Tu peux
- déclarer cette variable en tête de module (si les deux routines sont dans le même module)
Elle sera alors commune aux deux routines .
Dans la première du tu fais call lireFichierTexte()
ensuite SQL:=Tableau


- passer cette variable d'une routine à l'autre
dans la première routine
déclaration variable tableau
call lireFichierTexte(Tableau)
ensuite SQL:=Tableau

dans ce cas lireFichiertexte() devient lirefichiertexte(Tableau as string)

Je tapes tout ça de mémoire donc détails à vérifier
Lis la documentation sur le passage des variables.

En fait la fonction marche bien sauf que au lieu d'exécuter la requête écrite dans le fichier .SQL, elle lit et copie les lignes de la requête dans les cellules d'Excel.