OVH Cloud OVH Cloud

liaison excel access

1 réponse
Avatar
rkrebs
Salut à toutes et à tous,

je travaille actuellement avec ces deux logiciels et j'aimerais
piloter access à partir d'excel. J'y suis arrivé enfin presque . Sur
excel à l'aide de vba, je lance une macro qui ajoute une nouvelle
ligne(enregistrement) dans une base de données. Mais le probléme est
que suis obligé d'ouvrir access pour que la macro fonctionne
correctement. voici le code :

Dim accessApp As database
ChDir Application.DefaultFilePath
a = Dir("Base de données .mdb")

Set accessApp = Workspaces(0).OpenDatabase(a)

DoCmd.OpenQuery "Requête_ajout_base_de_données", acNormal, acEdit
accessApp.Close


Je pensais qu'en utilisant la méthode OpenDatbase access s'ouvrirai et
qu'il n'y aurai pas de probléme à exécuter la requête. Or quand je
lance cette macro et qu'access n'est pas ouvert leprogramme plante. Si
vous pouviez éclairer ma lanterne, je vous en serai grés.
Merci d'avance

Rom

1 réponse

Avatar
Pierre CFI
bonjour
excel ne connait pas docmd
donc dans excel, d'abord mettre la réf Microsoft DAO 3.xxx

Dim BD as DAO.Database

set BD = Opendatabase"c:.......mdb")
BD.execute "la chaine sql de ta req"

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
a écrit dans le message de news:
Salut à toutes et à tous,

je travaille actuellement avec ces deux logiciels et j'aimerais
piloter access à partir d'excel. J'y suis arrivé enfin presque . Sur
excel à l'aide de vba, je lance une macro qui ajoute une nouvelle
ligne(enregistrement) dans une base de données. Mais le probléme est
que suis obligé d'ouvrir access pour que la macro fonctionne
correctement. voici le code :

Dim accessApp As database
ChDir Application.DefaultFilePath
a = Dir("Base de données .mdb")

Set accessApp = Workspaces(0).OpenDatabase(a)

DoCmd.OpenQuery "Requête_ajout_base_de_données", acNormal, acEdit
accessApp.Close


Je pensais qu'en utilisant la méthode OpenDatbase access s'ouvrirai et
qu'il n'y aurai pas de probléme à exécuter la requête. Or quand je
lance cette macro et qu'access n'est pas ouvert leprogramme plante. Si
vous pouviez éclairer ma lanterne, je vous en serai grés.
Merci d'avance

Rom