OVH Cloud OVH Cloud

exporter une table complette vers excel ...

3 réponses
Avatar
Denis
Bonjour à tous, et bonne année ;-)

Nouvellement arrivé sur ce newsgroup, je suis à la recherche d'une solution
qui me permettrait de créer une procédure qui exporterait la totalité d'une
table vers un fichier excel .

Je viens de me remettre au développement sous VBA, et j'avoue n'avoir jamais
vu un exemple qui me permettrait de pouvoir réaliser ceci.

Donc, si vous avez une idée, une adresse de site qui m'expliquerait le
"comment faire", ou simplement un exemple commenté, ben ce serait génial !

Merci d'avance !

Denis.

3 réponses

Avatar
3stone
Salut,

"Denis"
| Nouvellement arrivé sur ce newsgroup, je suis à la recherche d'une solution
| qui me permettrait de créer une procédure qui exporterait la totalité d'une
| table vers un fichier excel ...


Sur clic d'un bouton ou autre...

Dim db As DAO.Database
Dim tbl As Object
Dim tblName As String

Set db = CurrentDb

For Each tbl In db.TableDefs
If Left(tbl.Name, 4) <> "MSys" Then
tblName = tbl.Name

'export
DoCmd.OutputTo acOutputTable, tblName, acFormatXLS, "E:Table_" & tblName & ".xls"

End If

Next tbl
Set db = Nothing



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
3stone
"Denis"

... qui exporterait la totalité d'une table vers un fichier excel ...


J'avais lu : la totalité *des* tables...

Bahhh... c'est le même prix :o))



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Denis
Te remercie Pierre !
Bonne journée ;-)
Denis.

"3stone" a écrit dans le message de news:
%235ydTFd%
"Denis"

... qui exporterait la totalité d'une table vers un fichier excel ...


J'avais lu : la totalité *des* tables...

Bahhh... c'est le même prix :o))



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw