Discussion :

[koyot3]

Bonjour a tous

dans ma base principale (base1.mdb) j'ai crée une macro qui crée une base (base2.mdb).
ensuite j'ouvre cette nouvelle base

Code :

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

1
2
3
Static ac As Access.Application: Set ac = New Access.Application
    ac.Visible = True
   ac.OpenCurrentDatabase (strDest)

malheureusement, après l'ouverture, currentdb désigne toujours ma première base (base1)
j'aimerais pouvoir lui dire que base2 est ma base principal afin de pouvoir fermer base1 et de la supprimer automatiquement

quelqu'un a-t-il une idée ????

merci d'avance

[6ril25]

Salut,

la macro est aussi dans la base... elle ne peut pas se supprimer elle-même...

[koyot3]

bah déjà sans la supprimer

si j'arrive a changer de currentdb, je peux éventuellement lancer une macro dans ma base2 qui va supprimer la base1 !
ca doit pouvoir se faire je pense ...

[6ril25]

Lol, faut que tu comprennes que currentdb, bah, c'est la bdd courante, donc ça peut pas être une autre bdd que celle dans laquelle tu te trouves...

[=JBO=]

Bonjour,

dans ma base principale (base1.mdb) j'ai crée une macro qui crée une base (base2.mdb).
ensuite j'ouvre cette nouvelle base

Code :

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

1
2
3
Static ac As Access.Application: Set ac = New Access.Application
    ac.Visible = True
   ac.OpenCurrentDatabase (strDest)

malheureusement, après l'ouverture, currentdb désigne toujours ma première base (base1)
j'aimerais pouvoir lui dire que base2 est ma base principal afin de pouvoir fermer base1 et de la supprimer automatiquement

Le code que tu donnes démarre une nouvelle application Access, en plus de celle actuellement en cours d'exécution (base1.mdb).

Ton code met en oeuvre le mécanisme d'Automation qui permet à une application donnée d'en contrôler une autre.

Aussi, à ce stade la seule chose que pourrais faire l'application base1.mdb serait de lancer l'exécution d'une macro ou une procédure SUB (ou encore ouvrir un formulaire...) dans l'application base2.mdb, puis de se fermer (Application.Quit).

Bonne journée.
_