Discussion :

[snooopy007]

Bonjour

J'ai une BD dont je voudrais extraire les données vers excel et pour cela, j'ai une requete SQL que j'aimerais envoyer vers excel mais avec le code suivant (trouvé dans la FAQ ), cela ne fonctionne pas :'(. Il me dit que l'objet ne supporte pas cette propriété ou cette méthode.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
Dim qd As QueryDef
 
    Set qd = CurrentDb.CreateQueryDef("NewQuery", "SELECT DISTINCTROW * " & Right(MySQL, (Len(MySQL) - 36)) & " ORDER BY melting_program.program_id, melting_test.test_id")
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "NewQuery", "O:\bdcreuset1.1\export_brut_v1-2.xls", True, xlSheet2![A1:IV65536]
 
    Set qd = Nothing

Pourriez vous me dire pourquoi?

Merci d'avance

[cafeine]

Hello,

dans mon tuto sur l'export vers Excel, je signale qu'on ne peut pas préciser (du moins dans pas mal de version d'Access une plage) :

http://cafeine.developpez.com/access...l/excel/#LIV-A

Essaie sans préciser la plage pour voir ...

[snooopy007]

J'ai enlevé la plage mais il y a une autre erreur

l'erreur : Cannot update, Database or Object is read-only.

Je ne comprends pas car ma base et ma mon classeur excel ne sont pas en lecture seule

Est-il possible de mettre l'export à la deuxième feuille? Car à la première, j'ai deja quelque chose.

Merci d'avance

[Muhad'hib]

Salut,

Regarde et inspire toi de ça (une fonction qui doit correspondre à ton besoin).

A+

[snooopy007]

J'utilisais deja les redordset mais le problème, c'est que c'est plutot lent.

Comme dans ce cas ci, je n'avais pas besoin d'une disposition précise des données, je m'étais dit que je pourrais le faire comme ca.

Finalement, je suis revenu aux recordsets mais il me faut 10 secondes pour transférer les données.

Si vous avez une solution plus rapide, je suis preneur.

[Muhad'hib]

Re,

J'ai fais le test de durée avec 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
 
Sub testRecordset()
Dim T As Single
Dim I As Integer
Dim Rs As DAO.Recordset
Dim Excel As Object
For I = 1 To 20
    T = Timer
    Set Excel = CreateObject("Excel.application").Workbooks.Add
    Set Rs = CurrentDb.OpenRecordset("temp", dbOpenSnapshot)
    Excel.sheets(1).cells(1, 1).copyfromrecordset Rs
 
    T = Timer - T
    Debug.Print T
Next
 
Excel.Close SaveChanges:=False
Set Excel = Nothing
Set Rs = Nothing
 
End Sub

En prennat donc dans le temps d'execution l'ouverture d'excel, la déclaration du recordset et l'exportation.
La table exporté contient 15 000 ligne, 7 champs et une moyenne de 90 caractaire par champ.

Le temps moyen d'exportation est de 3,5s, ce qui me parrait raisonnable non ?

A+