Discussion :

[samia004]

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 :

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

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.

Aidez moi SVP

Merci d'avance

[Phileo]

Bonjour,

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

Code :

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

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

[samia004]

Merci pour le code.

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

Code :

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

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 ??

[Phileo]

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.

[samia004]

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.