Discussion :

[asterpc]

Bonjour,
Je voudrais faire 2 choses :
1) copier le résultat d'une requete dans Excel (30000 lignes*10 champs)
2) numéroter ces lignes par ordre croissant en démarrant en A2 dans Excel

voici mon code très classique :

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
Dim appexcel As Excel.Application
Dim db As Database, rst As Recordset
 
Set db = CurrentDb
Set rst = db.OpenRecordset("base CG", dbOpenDynaset)
 
Set appexcel = CreateObject("Excel.Application")
Set wbexcel = appexcel.Workbooks.Open("G:\ETUDES\test.xls")
 
'renommage de la feuille + effacement des données précédentes
appexcel.Sheets(1).Select
appexcel.Sheets(1).Name = "BASE AGENTS " & UCase([cxmois].Column(1) & " " & [an])
appexcel.Cells.Select
appexcel.Selection.ClearContents
appexcel.Range("B1").Select
 
'copie de la requete "Base CG" sur la feuille Excel en B1
??
 
'numérotation des lignes sur la colonne A à partir de A2
??

merci pour l'aide

[le_niak]

Pour cela utilise un recordset basé sur ta requete puis ensuite tu affiches les résultats dans les cases voulue, voici un exemple :

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
 
'creation du recordset à partir de la requete NAV Portfolio
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("NAV Portfolio 2")
 
'parcourt le recordset puis afficher les données du recordset dans les cellules du fichier excel
While Not rs.EOF
 
    Appexcel.Cells(4, 1) = rs(15)
    Appexcel.Cells(2, 7) = rs(1)
    Appexcel.Cells(11, 2) = rs(2)
    Appexcel.Cells(10, 2) = rs(8)
    Appexcel.Cells(15, 2) = rs(13)
    Appexcel.Cells(11, 6) = rs(16)
    Appexcel.Cells(4, 7) = rs(17)
 
rs.MoveNext
Wend
Set rs = Nothing
 
 
End Sub

[asterpc]

c'est trop long ! j'ai 30000 lignes!
une autre solution plus rapide sans passer par une boucle?
merci

[le_niak]

Désolé mais sans faire de boucle, je ne sais pas.

[asterpc]

si on ouvre le recordset on ne peut le lire qu'enregistrement par enregistrement alors?

[Jean-Philippe André]

salut,
tu peux regarder la fonction CopyFromRecordSet, ca marche bien

[berti]

et pourquoi ne pas faire tout simplement

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "nomde la requête", "C:\export.xls"

tu fais le trie dans la requête dès le départ et tu places ce code sur un evènement click et le tour est joué.

[asterpc]

Formidable avec le Copyfromrecorset !!



merci encorre