Discussion :

[temga]

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

[casavba]

Bonjour, Voici un début de solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cafeine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

Bonjour Caféine,


Quand vous dites

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.

[cafeine]

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.

[casavba]

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 ??