Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Import Excel

Import Excel

5 réponses
Avatar
Benoit
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en=20
Access.En VB j'utilise des BD Access, en Excel j'importe=20
des BD Access. Mais je dois maintenant importer des=20
donn=E9es Excel dans Access, afin d'alimenter la BD Access.=20
Je sais le faire manuellement. J'aimerais cr=E9e un bouton=20
dans Excel qui exportera les donn=E9es de la feuille active=20
suivant mes crit=E8res vers Access. Je ne sais m=EAme pas par=20
quoi commencer. Quelqu'un a peut =EAtre un petit exemple de=20
macro Access, toute simple, que je pourrais adapter et=20
=E9toff=E9? Une id=E9e ?
Merci, Benoit,
Longue vie et prosp=E8re.
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Didier Bicking
Ouvres une feuille de macro, et prends l'action "TransférerFeuilleCalcul".
En bas de la fenêtre, modifie les propriétés de l'action. Tu verras, c'est
tout simple. Bien entendu, tu dois avoir dans une feuille excel des données
directement importables : les enregistrements à raison de 1 par ligne, pas
de fioritures, de titres intermédiaires, etc.

--
Didier Bicking
Développeur

http://dbicking.chez.tiscali.fr
"Benoit" a écrit dans le message de
news:596d01c3e590$e4cb0eb0$
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en
Access.En VB j'utilise des BD Access, en Excel j'importe
des BD Access. Mais je dois maintenant importer des
données Excel dans Access, afin d'alimenter la BD Access.
Je sais le faire manuellement. J'aimerais crée un bouton
dans Excel qui exportera les données de la feuille active
suivant mes critères vers Access. Je ne sais même pas par
quoi commencer. Quelqu'un a peut être un petit exemple de
macro Access, toute simple, que je pourrais adapter et
étoffé? Une idée ?
Merci, Benoit,
Longue vie et prospère.
Avatar
Pierre CFI [mvp]
bonjour
des pistes en attendant que je trouve un peu de temps aujourdh'ui
d'abord dans excel charger la réf Microsoft dao 3.x
il faut nommer ta base ("zone de cellule") dans excel mettons base_excel

dim bdxl as database, bdac as database
dim rsxl as recordset, rsac as recordset
set bdxl = OpendataBase(thisworkbook.name,false,fals,"excel 8.0")
set bdac = Opendatabase("c:uuuqqq.mdb")
les 2 bases sont ouvertes
set enrxl = bdxl.openrecordset("select * from base_excel")
çà doit te rappeller vb6
là on fait un transfert sur bdac
et là il faut que je me sauve, mais je reviens

--
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
"Benoit" a écrit dans le message de news: 596d01c3e590$e4cb0eb0$
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en
Access.En VB j'utilise des BD Access, en Excel j'importe
des BD Access. Mais je dois maintenant importer des
données Excel dans Access, afin d'alimenter la BD Access.
Je sais le faire manuellement. J'aimerais crée un bouton
dans Excel qui exportera les données de la feuille active
suivant mes critères vers Access. Je ne sais même pas par
quoi commencer. Quelqu'un a peut être un petit exemple de
macro Access, toute simple, que je pourrais adapter et
étoffé? Une idée ?
Merci, Benoit,
Longue vie et prospère.
Avatar
Pierre CFI [mvp]
suite
je sais pas si tu vas revenir
dans excel, la base de données est nommée data

Sub exportAccess()
'/// Mettre la ref Microsoft dao 3.xx
Dim bd As DAO.Database


Set bd = OpenDatabase(ThisWorkbook.FullName, False, False, "excel 8.0")
'// ajoute des enregistrement
bd.Execute "INSERT INTO PRODUIT ( PRODUIT_NOM ) IN 'd:accessexo access 97client_97.mdb' SELECT ville FROM data"
'// crée une table nommée 'Nouvelle'
bd.Execute "SELECT data.* INTO Nouvelle IN 'd:accessexo access 97client_97.mdb' FROM data;"
bd.Close
'Libération de l'espace mémoire occupé par les objets
Set bd = Nothing

End Sub


--
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
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour
des pistes en attendant que je trouve un peu de temps aujourdh'ui
d'abord dans excel charger la réf Microsoft dao 3.x
il faut nommer ta base ("zone de cellule") dans excel mettons base_excel

dim bdxl as database, bdac as database
dim rsxl as recordset, rsac as recordset
set bdxl = OpendataBase(thisworkbook.name,false,fals,"excel 8.0")
set bdac = Opendatabase("c:uuuqqq.mdb")
les 2 bases sont ouvertes
set enrxl = bdxl.openrecordset("select * from base_excel")
çà doit te rappeller vb6
là on fait un transfert sur bdac
et là il faut que je me sauve, mais je reviens

--
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
"Benoit" a écrit dans le message de news: 596d01c3e590$e4cb0eb0$
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en
Access.En VB j'utilise des BD Access, en Excel j'importe
des BD Access. Mais je dois maintenant importer des
données Excel dans Access, afin d'alimenter la BD Access.
Je sais le faire manuellement. J'aimerais crée un bouton
dans Excel qui exportera les données de la feuille active
suivant mes critères vers Access. Je ne sais même pas par
quoi commencer. Quelqu'un a peut être un petit exemple de
macro Access, toute simple, que je pourrais adapter et
étoffé? Une idée ?
Merci, Benoit,
Longue vie et prospère.




Avatar
Interressant, Vais essayer
-----Message d'origine-----
Ouvres une feuille de macro, et prends
l'action "TransférerFeuilleCalcul".

En bas de la fenêtre, modifie les propriétés de l'action.
Tu verras, c'est

tout simple. Bien entendu, tu dois avoir dans une feuille
excel des données

directement importables : les enregistrements à raison de
1 par ligne, pas

de fioritures, de titres intermédiaires, etc.

--
Didier Bicking
Développeur

http://dbicking.chez.tiscali.fr
"Benoit" a écrit dans le
message de

news:596d01c3e590$e4cb0eb0$
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en
Access.En VB j'utilise des BD Access, en Excel j'importe
des BD Access. Mais je dois maintenant importer des
données Excel dans Access, afin d'alimenter la BD Access.
Je sais le faire manuellement. J'aimerais crée un bouton
dans Excel qui exportera les données de la feuille active
suivant mes critères vers Access. Je ne sais même pas par
quoi commencer. Quelqu'un a peut être un petit exemple de
macro Access, toute simple, que je pourrais adapter et
étoffé? Une idée ?
Merci, Benoit,
Longue vie et prospère.


.



Avatar
Benoit
Ceic est a mettre dans un module Excel ou Access ?
-----Message d'origine-----
suite
je sais pas si tu vas revenir
dans excel, la base de données est nommée data

Sub exportAccess()
'/// Mettre la ref Microsoft dao 3.xx
Dim bd As DAO.Database


Set bd = OpenDatabase(ThisWorkbook.FullName, False,
False, "excel 8.0")

'// ajoute des enregistrement
bd.Execute "INSERT INTO PRODUIT ( PRODUIT_NOM )
IN 'd:accessexo access 97client_97.mdb' SELECT ville

FROM data"
'// crée une table nommée 'Nouvelle'
bd.Execute "SELECT data.* INTO Nouvelle IN 'd:accessexo
access 97client_97.mdb' FROM data;"

bd.Close
'Libération de l'espace mémoire occupé par les objets
Set bd = Nothing

End Sub


--
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
"Pierre CFI [mvp]" a écrit
dans le message de news:


bonjour
des pistes en attendant que je trouve un peu de temps
aujourdh'ui


d'abord dans excel charger la réf Microsoft dao 3.x
il faut nommer ta base ("zone de cellule") dans excel
mettons base_excel



dim bdxl as database, bdac as database
dim rsxl as recordset, rsac as recordset
set bdxl = OpendataBase
(thisworkbook.name,false,fals,"excel 8.0")


set bdac = Opendatabase("c:uuuqqq.mdb")
les 2 bases sont ouvertes
set enrxl = bdxl.openrecordset("select * from
base_excel")


çà doit te rappeller vb6
là on fait un transfert sur bdac
et là il faut que je me sauve, mais je reviens

--
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
"Benoit" a écrit dans
le message de news: 596d01c3e590$e4cb0eb0


$
Bonjour toutes et tous,
Je programme beaucoup en VB, VBA Excel, mais pas en
Access.En VB j'utilise des BD Access, en Excel j'importe
des BD Access. Mais je dois maintenant importer des
données Excel dans Access, afin d'alimenter la BD
Access.


Je sais le faire manuellement. J'aimerais crée un bouton
dans Excel qui exportera les données de la feuille
active


suivant mes critères vers Access. Je ne sais même pas
par


quoi commencer. Quelqu'un a peut être un petit exemple
de


macro Access, toute simple, que je pourrais adapter et
étoffé? Une idée ?
Merci, Benoit,
Longue vie et prospère.





.