Requete EXCEL ACCESS

Version imprimable

Bonjour a tous!

Je suis en stage et j'ai une requête EXCEL a faire et je m'y connais pas assez en SQL pour accomplir ma tache...

Je dois en effet faire une requête EXCEL afin qu'il me retourne un variant d'apres une base de données ACCESS.

En introduisant une date de début, une date de fin, et le nom d'une colonne, je veux que ma requête me retourne le variant colonne associé avec la date)
Voici en gros mon fichier ACCESS.

Date Open High Low CLose

14/05/1988 15.9 15.8 72.4 15.7
15/05/1988 ....
16//05/1988 ...

J'ai commencé avec les tutos a faire le code mais je n'avance pas...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function fnYahooQuery(Datedebut As Char, Datefin As Char, colonne As Char) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim strSQL As String Set Db = DAO.OpenDatabase("C:\Users\Fichier.mdb", False, False) strSQL = "SELECT Date, Open FROM [AC#PA] where year(Date)='Datedebut '" Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot) Sheets("Feuil3").Range("A2").CopyFromRecordset Rs Db.Close End Function
Merci a tous!

16/05/2011, 16h27
pgz

Bonjour.

Peux-tu préciser le nom des champs, car il y a une contradiction entre la descriptin de la table et la requête que tu as faite. Si tu a un champ qui s'appelle Date, tu peux commencer par le renommer, par exemple DateSeance.
Je ne vois pas pourquoi tu as fait une fonction, puisqu'elle ne renvoie rien.
Si tu veux les cours de DteDEbut à DateFin, il va falloir le mettre dans la requête.
L'argument Colonne sert à quoi?
Pour quoi type Char pour les arguments? Ca n'existe pas en VBA

Avec ce que tu as fait, il se passe quoi?

Cordialement,

PGZ

En gros , l'utilisateur entre la date de début, la date de fin, la table correspondante, et (open/high/low ou close) dans les champs de la fonction fnYahooQuery et celui lui retourne le tableau de valeur correspondant aux dates et a la colonne demandée sur une feuille Excel.

Ne faut t il pas un type char dans ma fonction si je dois entrer justement le nom de ma colonne?

Pour l'instant j'obtiens beaucoup de message d'erreur...

Merci!

J'ai ecris mon code sans utiliser de fonction tout d'abord
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub import3() Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim strSQL As String Set Db = DAO.OpenDatabase("E:\Projet GDP\Requete\base.accdb", False, False) strSQL = "SELECT Date, Open FROM [AC#PA] where (year)Date<'14/01/2011' AND year(Date)> 14/01/2010 " Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot) Sheets("Feuil1").Range("A2").CopyFromRecordset Rs Db.Close End Sub
ET il ne tourne pas mais je pense que ma syntaxe est mauvaise...

Je n'arrive toujours pas a faire fonctionner ce code.
Mes champs ici sont Date et open
Cela me retourne un variant sous excel mais qui ne correspond pas aux dates choisies.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub import3()
 
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
 
    Set Db = DAO.OpenDatabase("E:\Projet GDP\Requete\base.accdb", False, False)
 
 
 
    strSQL = "SELECT Date, Open FROM [AC#PA] where year(Date) BETWEEN '2010-05-01' AND '2011-01-01'"
 
 
 
 
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
    Sheets("Feuil2").Range("A2").CopyFromRecordset Rs
 
    Db.Close
 
End Sub

16/05/2011, 18h06
kiki29

Salut,je crois que le format d'une date dans une requête doit ressembler à qqch comme

Code:

"#" & Format(DateDebut, "mm/dd/yyyy") & "#"

Re,

Encore une fois, tu devrais renommer le champ "Date" car Date est réservé.

DOnc, je fais comme si le champs s'appelle DateSeance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub import3(ByVal dteDeb As Date, ByVal dteFin As Date, ByVal sChamp As String)
 
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
 
Set Db = DAO.OpenDatabase("E:\Projet GDP\Requete\base.accdb", False, False)
 
strSQL = "SELECT DateSeance, " & sChamp & " FROM [AC#PA] Where (DateSeance >= #" & Format(dteDeb, "mm/dd/yyyy") & _
        "#) AND (DateSeance <= #" & Format(dteFin, "mm/dd/yyyy") & "#);"
 
Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
With ThisWorkbook.Worksheets("Feuil2")
    .Range("A2").CopyFromRecordset Rs
    .Range("A1") = "Date"
    .Range("B1") = sChamp
End With
 
Db.Close
Set rst = Nothing
Set Db = Nothing
 
End Sub

A mettre au point.

PGZ

Merci beaucoup pour cette réponse!

J'ai essayer d'adapter ce programme dans une fonction. Je ne sais pas si la syntaxe est correcte. Il ne m'indique pas de message d'erreur quand j'execute la sub, mais me renvoie seulement le nom des colonnes Date et Open(sChamp)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function import3(ByVal dteDeb As Date, ByVal dteFin As Date, ByVal sChamp As String)
 
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
 
Set Db = DAO.OpenDatabase("E:\Projet GDP\Requete\base.accdb", False, False)
 
strSQL = "SELECT DateSeance, " & sChamp & " FROM [AC#PA] Where (DateSeance >= #" & Format(dteDeb, "mm/dd/yyyy") & _
        "#) AND (DateSeance <= #" & Format(dteFin, "mm/dd/yyyy") & "#);"
 
Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
With ThisWorkbook.Worksheets("Feuil2")
    .Range("A2").CopyFromRecordset Rs
    .Range("A1") = "Date"
    .Range("B1") = sChamp
End With
 
Db.Close
Set rst = Nothing
Set Db = Nothing
 
 
End Function
 
 
Sub essai1()
Call import3(3 / 14 / 2010, 1 / 14 / 2010, "Open")
End Sub

16/05/2011, 18h44
pgz
RE,

Pour appeler la procédure
Code:

1 2 3 Sub essai1() Call import3(#1/14/2010#,#3/14/2010#, "Open") End Sub
Sans oublier que dteFin > = dteDeb, sinon tu n'auras rien...

PGZ
16/05/2011, 18h50
Richard.77

Merci beaucoup pour votre patience! Bonne soirée!