Exécuter code dans base A depuis base B

Bonjour,

J'ai une base de données Access "A" dont les données sont mises à jour grâce à des fichiers plats (3 fichiers quotidiens de +/- 100000 lignes).
Lors de reprise de données, je remets à jour les données avec tous les fichiers existants. La base grossit vite et je suis obligé de la compacter...
Problème : je ne peux pas lancer le travail sans être derrière le poste.
J'ai donc pensé travailler en tables liées, pour pouvoir commander un compactage.
Une base "B" pilote le chargement des données dans la base "A". Ceci permet de commander le compactage de la base "A"
Problème : les temps de traitement des données dans la base "A" sont trèèèès (trop) longs.
Y-a-t-il un moyen de lancer le code d'intégration des données de la base "A" depuis la base "B" ?

Genre : depuis "B", j'ouvre "A", je lance le code de "A" pour intégrer un lot de fichiers, je ferme "A", je compacte "A", ...

Merci.

Salut et bienvenu sur le forum,

Je ne sais pas quel est la syntaxe pour executer un sub d'une autre base mais j'avais trouvé une "bidouille" pour le faire (ouvrir un formulaire je sais faire).

En fait dans ta base A tu crée un formulaire (vide, indépendant ...) qui n'a qu'un événement sur ouverture :

Code:

---

1 2 3 4 5 6

Private Sub Form_Open(Cancel As Integer) DeVloP DoCmd.Close acForm, Me.Name   End Sub

---

Ainsi sur ouverture tu execute ton sub DeVloP puis tu ferme le formulaire.

Dans ta base B tu fais qqchose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub DeVloP_B() Dim BaseA As Object Set BaseA = GetObject("d:\dvp.mdb") BaseB.Application.DoCmd.OpenForm "formulaire1" BaseB.Application.Quit Set BaseA = Nothing CompactDatabase "d:\dvp.mdb", "d:\dvp_compacté.mdb" End Sub

---

Voila, c'est loin d'être propre mais cela t'aidera peut-être

A+

slt

http://access.developpez.com/faq/?pa...ss#OuvrBddForm :?: :idea:

Merci,

J'ai trouvé une solution. Ca donne à peu près ça :

Citation:

---

Dim appAccess As Access.Application
...
Set appAccess = CreateObject("Access.Application.8")
appAccess.OpenCurrentDatabase iStr_NomBaseDonneesSrc, False
appAccess.DoCmd.OpenForm "-= Pilotage =-"
Do
iLng = iLng + 1
ecritStatus "Traitement des données du " & gDat_DateTraitement & " ..."
ecritLog "Début de traitement des données du " & gDat_DateTraitement
appAccess.Run "traite", gDat_DateTraitement, gDat_DateTraitement
ecritLog "Fin de traitement des données du " & gDat_DateTraitement
If Int(iLng / 10) = iLng / 10 Then
appAccess.CloseCurrentDatabase
DoEvents
appAccess.Quit acQuitSaveNone
DoEvents
Set appAccess = Nothing
ecritStatus "Compactage en cours ..."
Compactage
Set appAccess = CreateObject("Access.Application.8")
appAccess.OpenCurrentDatabase iStr_NomBaseDonneesSrc, False
appAccess.DoCmd.OpenForm "-= Pilotage =-"
End If
...

---