Discussion :

[Kloun]

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.

[Muhad'hib]

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 :

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

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 :

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

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+

[Arkham46]

slt

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

[Kloun]

Merci,

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

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