[VBA-A2003] Export d'un Recordset vers Excel, avec SQL statement

**Wanoo14** · 24/04/2006, 20h38

Bonsoir à tous,

Je souhaite exporter une table par blocs, définis par la valeur contenue dans en champ, appelé CVALBDM.
En effet, ma table comporte 500 000+ lignes, ce qui est bien trop pour une feuille Excel !

Il s'agit de transactions boursières horodatées concernant 38 actions différentes, mais les blocs de données sont mis à la suite les uns des autres. CVALBDM est le code valeur identifiant chaque action.
Il faut donc une boucle avec le code valeur en variable, pour exporter les données relatives à chaque action dans des feuilles Excel, bloc après bloc...

D'où le code suivant

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 Creation_RecordSet()
 
    'Déclaration des variables
    Dim data As Database
    Dim code_valeur As Long
    Dim Mon_Recordset As Recordset
    Dim requeteSQL As String
 
    Set data = CurrentDb.OpenRecordset("data", dbOpenSnapshot)
 
    'Affectation d'une valeur à la variable code_valeur
    code_valeur = 1526
 
    'Définition de la requête SQL
    requeteSQL = "SELECT * FROM data WHERE cvalbdm = " & code_valeur
 
    'Définition du recordset à appeler
    Set Mon_Recordset = data.OpenRecordset(requeteSQL, dbOpenSnapshot)
 
    'Export du Recordset obtenu par la méthode TransferSpreadSheet
 
End Sub

Problème : je ne parviens pas à faire accepter ma requête SQL par aucun des types de Recordset.

dbOpenTable retourne une erreur Runtime 3011 (ce qui est normal, d'après l'Aide)

dbOpenDynaset, dbOpenSnapShot et dbOpenForwardOnly retourne une erreur de type 13 (Type mismatch).

Je ne suis pas du tout à l'aise avec VBA pour Access, ni avec les concepts de Database et Recordset, je suis donc assez perdu...

Quelle est mon erreur ??

D'avance merci à tous

Erwann

**soazig** · 24/04/2006, 21h50

Bonjour,

Code :

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

1
2
3
4
5
6
Dim data As Database 'La tu déclare un objet Database
 
Set data = CurrentDb.OpenRecordset("data", dbOpenSnapshot)
'Et sur le set data tu affecte à ton objet Database un ...Recordset.
'Je pense qu'il ne doit pas aimer
'OpenRecordset ouvre un recordset et sa valeur de retour est le recordset en question!

Donc je dirais que tu peux faire un set data=CurrendDb tout simplement.

Je n'ai pas touché Access depuis quelques années donc je suis un peu rouillée, tu devrais aller sur le forum adapté :http://www.developpez.net/forums/forumdisplay.php?f=45

A+
Soazig