VBA Excel pour ouvrir Access

Bonjour,
je dois créer un bouton dans un fichier excel qui va fermer le dit fichier sans enregistrer (ceci étant déjà fonctionnel) puis ouvrir une DB access.

Pour plus de précision.

L'utilisateur est dans Access, j'ai fait un lien vers un chiffrier Excel, lorsqu'il a terminé il aura simplement a cliquer le bouton pour fermer, excel se ferme sans sauvegarder, puis l'utilisateur retourne dans access au même endroit ou il était précedament. Dans cette opération Access ne c'est jamais fermer, donc s'il y a une commande, un script VBA pour simplement retourner à la fenetre Access déjà ouverte se serait formidable.

Pouvez-vous m'aider?

P.S. Je n'étais pas certain si je devais poster dans Excel, ou Access...

Bonjour,

As tu essayé d'ouvrir le classeur excel dans un objet OLE qui serait positionné dans une userform (Menu insertion/Objet).
Ainsi tu ne sort jamais d'access

Bonsoir.

A mon avis, tu as bien fait de poster dans Excel.

Pour activer une appli access, tu peux faire

Code:

---

Application.ActivateMicrosoftApp xlMicrosoftAccess

---

juste avant de fermer l'appli XL.

Cordialement,

PGZ

Jfontainne;
Pourrais-tu m'orienter vers les objet OLE, userforme? Je n'ai rien trouvé dans l'aide access. Je roule sous Access 2007 au bureau, mais chez moi 2010. Je trouve l'idée de ne jamais sortir d'access plutôt interessante. Car j'ai des chiffrier excel a intégrer, mais aussi des document word et beaucoup de pdf. Donc si je peux tout insérer dans access même au lieu de créer toujours des lien se serait idéal pour moi.

Une autre question; Est-ce que les objet ole/userform, sont lié a à database ou bien intégrer à celle-ci? je m'explique, dois-je garder une copie de se fichier dans le repertoire "x" ou si je le déplace l'objet ne fonctionnera plus?

PGZ;

J'ai essaiyé ta méthode, mais sans résultat. Il n'y a aucun message d'erreur, mais mon script ne fait que fermer mon chiffrier excel, sans changer de fenetre...

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Application.DisplayAlerts = False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True Application.ActivateMicrosoftApp xlMicrosoftAccess End Sub

---

qu'est-ce que je fais de pas correct?

Bonsoir.

Essaies comme cela

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Application.ActivateMicrosoftApp xlMicrosoftAccess Application.DisplayAlerts = False ThisWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

---

Cordialement,

PGZ

Ca fonctionne merci PGZ