Remplir un formulaire access à partir d'excel

Bonjour, je suis actuellement en train de programmer une interface simple pour permettre à des utilisateurs d'envoyer des données d'excel dans une base de données access.
Les données excel sont des sorties d'autres programmes et les utilisateurs doivent actuellemen ressaisir à la main ces données excel dans l'interface access, ce qui réprésente une grosse perte de temps.


J'arrive à envoyer sans problème ces données initiales dans les tables de données access. Le problème est que lorqu'on saisi normalement ces champs dans les formulaires access, d'autres valeurs se calculent alors automatiquement (procédure événementiel des formulaires access).

Pour résoudre ce problème, je pensais ouvrir plutôt les formulaires access au lieu des tables et compléter par macro vba excel, les différents champs du formulaire pour que les procédures événementiels soient activées

Le problème, est que je en sais pas comment réaliser cela.

Si quelqu'un à une solution à ce problème, je lui en serais reconnaissant

Remarque : Je ne peux absolument pas toucher à la base de données access (pas les droits pour y toucher) et suis donc obligé si je veux pouvoir faire queluqechose de passer par excel

Bonjour, Voici un début de solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test()   Dim AccApp As Object 'Access.Application   Set AccApp = CreateObject("Access.Application")   'Ouvrir la base de données AccApp.OpenCurrentDatabase "C:\TaBaseAcc.mdb" 'Remplace par le chemin exact   'Exécuter la macro AccApp.Run "TaMacro" ' Remplace par le nom de la procedure   'Fermer la base de données AccApp.CloseCurrentDatabase   'Libérer les ressources Set AccApp = Nothing   End Sub

---

Hello,

il me paraît plus simple et plus sage de travailler directement sur les données et pas sur l'application Access.
Pour cela utilise DAO, exemple :

Code:

---

Const serverDB As String = "\\Panoramix\lugdunum$\ActualDataLoad\CommentsDB.mdb"

---

ici un code pour insérer dans données dans une base Access depuis Excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim dbEng As Object Dim db As Object Dim rs As Object   Set dbEng = CreateObject("DAO.DBEngine.36") Set db = dbEng.Workspaces(0).OpenDatabase(serverDB) Set rs = db.openrecordset("tblEvents", 2) rs.movelast rs.movelast rs.addnew rs!dat = Now rs!Comment = Me.txtComment rs!Login = Environ("username") rs!acc = Me.cmbPL rs!org = Me.cmbOrga rs!tim = Me.cmbMois rs!pha = Me.cmbPhase rs.Update   Set rs = Nothing Set db = Nothing Set dbEng = Nothing

---

Bonjour Caféine,


Quand vous dites

Citation:

---

il me paraît plus simple et plus sage de travailler directement sur les données et pas sur l'application Access

---

Qu'est ce que vous entendez par là ?

Quels sont les risques encourus en travaillant sur l'application?

Merci d'avance.

Hello CasaVBA,

En travaillant sur une instance d'Access par Automation on risque des plantages, de saturer la mémoire, des temps d'accès plus longs.
En travaillant directement sur les données on utilise une bibliothèque spécialisée et optimisée pour ça (DAO) moins gourmande en ressources et qui offre plus de contrôle.
Certains cas nécessitent néanmoins l'utilisation d'Access, mais à mon sens il convient d'en limiter le recours.

Ok, je suis d'accord.

Mais dans le cas, où on est amené à exécuter une macro Access, depuis Excel; je crois qu'on est obligé d'utiliser l'application. N'est ce pas vrai ??