Discussion :

[demerzel0]

bonjour, j'utilise des feuilles excel.sheet dans certains de mes formulaires acces pour afficher mes donnée et faire des calcul, ce qui me permet ensuite de les exporter directement sur des rapport word.

pour le moment je remplis mes feuilles a partir de recordset cas par case en parcourant mon recordset et ma feuille excel, evidemment comme vous vous en doutez c'est extremement lent. d'apres ce que j'ai cru comprendre il est possible de copier directement un plage de donnée, j'aimerai savoir si quelqu'un l'a deja fait ou sait comment faire.

merci d'avance

[keita]

Tu as regardé ici?
http://access.developpez.com/faq/?page=Excel#PilotExcel

[demerzel0]

oui je l'avais deja vu mais ça ne me donne tjs pas d'idée sur la copie en masse de donnée depuis un recordset vers mon objet excel.

je tiens a preciser que mes objets feuille excel sont Incorporé a mes formulaires et pas attachés.

[keita]

Il va faloir que tu cherches un peu; regarde ici:
http://bidou.developpez.com/faqvba/?page=1

[demerzel0]

en fait c'est la que j'ai trouvé tout ce dont j'avais besoin pour faire ce que j'ai deja fait, ça marche tres bien sauf le tps d'execution qui est tres long car je remplis mon tableau case par case.

dans la faq il ya d'ailleur :Comment envoyer des données Access sur Excel ? , c'est exactement ce que je fait, et meme sur des tableau de 10x10 ça prend 1 a 2s, alors sur des tableau de 100x10 ou 200x10 c'est meme pas la peine

je viens de relire un peu tout ça et je ne vois rien qui peut m'aider

[Arkham46]

Slt,

Speak English?
Si oui y a une page avec plein de bonnes idées ici :
http://www.avdf.com/apr98/art_ot003.html

[demerzel0]

merci ça a l'air interessant et l'anglais ne me pose aucun probleme, je vous tient au courant^^

[demerzel0]

j'ai pas tres bien compris comment on passe un array dans un range, et comment je passe de mon recodset a un array? en tt cas ya plein d'info interessante que je m'en vais appliquer, mais je vois trop encore comment copier les données par paquet... si quelqu'un pense avoir saisi ou a un exemple ça m'arrangerai

[Arkham46]

Slt,

En gros, vite fait, pas tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim expA As Variant
Const nbColonne As Integer = 5
rs.MoveLast
ReDim expA(rs.RecordCount - 1, nbColonne - 1)
rs.MoveFirst
While Not rs.EOF
expA(rs.AbsolutePosition, 0) = rs.Fields(0)
expA(rs.AbsolutePosition, 1) = rs.Fields(1)
expA(rs.AbsolutePosition, 2) = rs.Fields(2)
expA(rs.AbsolutePosition, 3) = rs.Fields(3)
expA(rs.AbsolutePosition, 4) = rs.Fields(4)
rs.MoveNext
Wend
ObjetOLESheet.Range(ObjetOLESheet.Cells(1, 1), ObjetOLESheet.Cells(rs.RecordCount, nbColonne)) = expA

[demerzel0]

ok merci je teste ça des que possible