Quelqu'un saurait-il comment instancier un objet application Access en VBA à
partir de Excel pour pouvoir executer une requete sur une feuille de Excel.
Je voudrais avoir les résultats sur une deuxième feuille de la meme
application Excel.
J'ai essayé MSQuery mais les requêtes sont assez limitées ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
Bonjour Il faut charger la réf Microsoft DAO 3.xx
Dim bd as DAO.Database, Enr as DAO.Recordset set bd = Opendatabase("c:.......jj.mdb") set enr = bd.OpenRecordset("Select * from NomTableouReq where champ = 10 order by champ3",dbOpenSnapshot ) if Not enr.eof then Worksheets("feuil2").range("A2").CopyFromRecordset enr end if là tu fermes enr , bd il faut aussi faire une boucle sur le nom des champs pour remplir la ligne 1
-- 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 "Kamel" a écrit dans le message de news: eo#xi1W$
Bonsoir,
Quelqu'un saurait-il comment instancier un objet application Access en VBA à partir de Excel pour pouvoir executer une requete sur une feuille de Excel. Je voudrais avoir les résultats sur une deuxième feuille de la meme application Excel. J'ai essayé MSQuery mais les requêtes sont assez limitées ...
Merci !!!
Bonjour
Il faut charger la réf Microsoft DAO 3.xx
Dim bd as DAO.Database, Enr as DAO.Recordset
set bd = Opendatabase("c:.......jj.mdb")
set enr = bd.OpenRecordset("Select * from NomTableouReq where champ = 10 order by champ3",dbOpenSnapshot )
if Not enr.eof then
Worksheets("feuil2").range("A2").CopyFromRecordset enr
end if
là tu fermes enr , bd
il faut aussi faire une boucle sur le nom des champs pour remplir la ligne 1
--
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
"Kamel" <kamel@bogoss.com> a écrit dans le message de news: eo#xi1W$DHA.3220@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Quelqu'un saurait-il comment instancier un objet application Access en VBA à
partir de Excel pour pouvoir executer une requete sur une feuille de Excel.
Je voudrais avoir les résultats sur une deuxième feuille de la meme
application Excel.
J'ai essayé MSQuery mais les requêtes sont assez limitées ...
Dim bd as DAO.Database, Enr as DAO.Recordset set bd = Opendatabase("c:.......jj.mdb") set enr = bd.OpenRecordset("Select * from NomTableouReq where champ = 10 order by champ3",dbOpenSnapshot ) if Not enr.eof then Worksheets("feuil2").range("A2").CopyFromRecordset enr end if là tu fermes enr , bd il faut aussi faire une boucle sur le nom des champs pour remplir la ligne 1
-- 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 "Kamel" a écrit dans le message de news: eo#xi1W$
Bonsoir,
Quelqu'un saurait-il comment instancier un objet application Access en VBA à partir de Excel pour pouvoir executer une requete sur une feuille de Excel. Je voudrais avoir les résultats sur une deuxième feuille de la meme application Excel. J'ai essayé MSQuery mais les requêtes sont assez limitées ...
