Fonction VBA: Recuperer des donnees stockees sous Access dans Excel

Version imprimable

Bonjour,

Je cherche a creer un Fonction sous VBA-Excel me permettant de recuperer dans Excel des donnees stockees sous Access.

La Table Access utilisee est DATA et je cherche a extraire la somme des donnees figurant dans la colonne AMOUNT avec pour filtre '= variable a' dans la colonne CRITERE.
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 Public Function AccesstoExcel(a As String) Dim Db As Database Dim Rs As DAO.Recordset Dim Path As String Path = "M:\ACCESS\BASE DE DONNEES\Basededonnees.mdb" Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True) Set Rs = _ Db.OpenRecordset("SELECT sum([Data].AMOUNT) as Sum " & _ "FROM [Data]" & _ "WHERE ([Data].CRITERE=""" & a & """)") Sheets("Sheet1").Cells(1, 1).CopyFromRecordset Rs Set AccesstoExcel = Sheets("Sheet1").Range("A1").Value Rs.Close Db.Close Set Rs = Nothing End Function
Ce code ne fonctionne pas, j'ai cree le meme sous forme de procedure qui lui fonctionne...

Quelqu'un pourrait-il m'expliquer ce qui ne va pas, je debute en VBA!

Merci d'avance,

Dave

11/07/2011, 20h52
jfontaine

Bonjour,

Une fonction a pour but de retourner une valeur

Code:

Public Function AccesstoExcel(a As String) as String '(Choisir le bon type de variable correspondant au type de l'information a retourner)

La déclaration de ta fonction ne retourne rien ais attend "a" comme paramètre

D'après ton code, une procédure serait plus adapté
12/07/2011, 17h59
dave_gt

Bonjour,

Tout d'abord merci pour la reponse.

Je souhaite travailler avec une fonction car j'ai imperativement besoin de travailler depuis le classeur excel et de selectionner de nombreux criteres.

Ainsi faire glisser une formule =AccesstoExcel(A1...) me parait optimal.

J'ai essayé de definir le resultat de la fonction, as String ne marche pas, erreur du type: "Object is Recquired"

Cependant la fonction devrait retourner une seule et unique valeur...

Any idea de ce qu'il faudrait corriger pour que cela fonctionne?

Merci d'avance!

Je ne peux pas tester, mais essai comme cela (En vert les modifs)

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
Public Function AccesstoExcel(a As String)
 
   Dim Db As Database
   Dim Rs As DAO.Recordset
   Dim Path As String 
 
   Path = "M:\ACCESS\BASE DE DONNEES\Basededonnees.mdb"
 
   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
 
   Set Rs = _
   Db.OpenRecordset("SELECT sum([Data].AMOUNT) as Sum " & _
                     "FROM [Data]" & _
                     "WHERE ([Data].CRITERE=""" & a & """)")
 
   Rs.MoveFirst
 
   AccesstoExcel = Rs!Sum
 
   Rs.Close
   Db.Close
 
   Set Rs = Nothing
 
End Function

Merci beaucoup Jerome, cela fonctionne!

Etant donné que j'utilise deja une SUM "sous Access", j'ai un tout petit peu modifie la fin du code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function AccesstoExcel(a As String)
 
   Dim Db As Database
   Dim Rs As DAO.Recordset
   Dim Path As String 
 
   Path = "M:\ACCESS\BASE DE DONNEES\Basededonnees.mdb"
 
   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)
 
   Set Rs = _
   Db.OpenRecordset("SELECT sum([Data].AMOUNT) as Sum " & _
                     "FROM [Data]" & _
                     "WHERE ([Data].CRITERE=""" & a & """)")
 
 
   AccesstoExcel = Rs!BOF 
   Rs.Close
   Db.Close
 
   Set Rs = Nothing
 
End Function