OVH Cloud OVH Cloud

export vers Excel

8 réponses
Avatar
vince
Bonjour a tous,

je désire exporter le résultat d'une requete vers Excel.
N'y connaissant pas grand chose en export, j'ai voulu reprendre le code
contenu dans le topic du 11/09 de Maite. Ce code commence par

Sub ExportationVersExcel_DAO2()
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Fld As DAO.Field
Dim intColonne As Integer
Dim intLigne As Integer
...
A l'exécution, j'ai l'erreur 'type défini par l'utilisateur non défini',
avec la premiere déclaration surlignée.
Que me manque t-il pour que ca marche ?
Merci

8 réponses

Avatar
Pierre CFI [mvp]
bonjour
oui, dans outils/réferences de vb, ajoute microsoft dao 3.xxx

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"vince" a écrit dans le message de news:414c6563$0$12636$
Bonjour a tous,

je désire exporter le résultat d'une requete vers Excel.
N'y connaissant pas grand chose en export, j'ai voulu reprendre le code
contenu dans le topic du 11/09 de Maite. Ce code commence par

Sub ExportationVersExcel_DAO2()
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Fld As DAO.Field
Dim intColonne As Integer
Dim intLigne As Integer
...
A l'exécution, j'ai l'erreur 'type défini par l'utilisateur non défini',
avec la premiere déclaration surlignée.
Que me manque t-il pour que ca marche ?
Merci





Avatar
Eric
Bonjour Pierre,

"Pierre CFI [mvp]" écrivait

oui, dans outils/réferences de vb, ajoute microsoft dao 3.xxx



Ne serait-ce pas plutot la Référence Microsoft Excel 9.0 (ou supérieure)
Object Library qu'il devrait AUSSI ajouter à son projet si le surlignage
intervient à la 1ère ligne de sa procédure ?

Me trompe-je ?

A+
Eric

Avatar
Raymond [mvp]
Il faut les deux mon capitaine. dao et excel. si on ne veut pas excel en
librairie il faut passer par createobject.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Eric" a écrit dans le message de
news:
Bonjour Pierre,

"Pierre CFI [mvp]" écrivait

oui, dans outils/réferences de vb, ajoute microsoft dao 3.xxx



Ne serait-ce pas plutot la Référence Microsoft Excel 9.0 (ou supérieure)
Object Library qu'il devrait AUSSI ajouter à son projet si le surlignage
intervient à la 1ère ligne de sa procédure ?

Me trompe-je ?

A+
Eric



Avatar
vince
Merci a tous les 3. J'ai rajouté les références. Ca marche nickel.
J'ai cependant une question: si j'ouvre ma bdd sur une auter machine, les
références y seront-elles ? ou faut-il les rajouter à la main ?

"vince" a écrit dans le message de news:
414c6563$0$12636$
Bonjour a tous,

je désire exporter le résultat d'une requete vers Excel.
N'y connaissant pas grand chose en export, j'ai voulu reprendre le code
contenu dans le topic du 11/09 de Maite. Ce code commence par

Sub ExportationVersExcel_DAO2()
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Fld As DAO.Field
Dim intColonne As Integer
Dim intLigne As Integer
...
A l'exécution, j'ai l'erreur 'type défini par l'utilisateur non défini',
avec la premiere déclaration surlignée.
Que me manque t-il pour que ca marche ?
Merci





Avatar
Raymond [mvp]
si les références sont présentent il n'y aura aucun problème sinon,
référence marquée manquante est égal à problèmes d' exécution.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vince" a écrit dans le message de
news:414c88b9$0$12617$
Merci a tous les 3. J'ai rajouté les références. Ca marche nickel.
J'ai cependant une question: si j'ouvre ma bdd sur une auter machine, les
références y seront-elles ? ou faut-il les rajouter à la main ?



Avatar
vince
C'est ce que je me disais.
Et je ne peux pas m'assurer par une routine que les références y sont, et
les rajouter au cas ou ?

"Raymond [mvp]" a écrit dans le message de
news:
si les références sont présentent il n'y aura aucun problème sinon,
référence marquée manquante est égal à problèmes d' exécution.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vince" a écrit dans le message de
news:414c88b9$0$12617$
Merci a tous les 3. J'ai rajouté les références. Ca marche nickel.
J'ai cependant une question: si j'ouvre ma bdd sur une auter machine,
les


références y seront-elles ? ou faut-il les rajouter à la main ?







Avatar
Raymond [mvp]
Si, tu peux, sauf si tu es en mde.
voir la page : http://access.seneque.free.fr/bases_exemples.htm N° 42.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vince" a écrit dans le message de
news:414dabe0$0$20458$
C'est ce que je me disais.
Et je ne peux pas m'assurer par une routine que les références y sont, et
les rajouter au cas ou ?



Avatar
vince
Ah, merci.
Je suis très souvent sur ton site (ou plutot tes sites), mais j'en découvre
chaque jour !
Encore merci pour cette mise a disposition de tes connaissances. J'ai
commencé à utiliser Access (pour mon boulot) suite à ma première visite sur
access.seneque.free.fr
Au final, j'en ressort avec un outil de gestion de parc matériel digne des
produits du commerce.
Encore merci


"Raymond [mvp]" a écrit dans le message de
news: #
Si, tu peux, sauf si tu es en mde.
voir la page : http://access.seneque.free.fr/bases_exemples.htm N° 42.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"vince" a écrit dans le message de
news:414dabe0$0$20458$
C'est ce que je me disais.
Et je ne peux pas m'assurer par une routine que les références y sont,
et


les rajouter au cas ou ?