Discussion :

[Rashlack]

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

[jfontaine]

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

[pgz]

Bonsoir.

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

Pour activer une appli access, tu peux faire

Code :

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

Application.ActivateMicrosoftApp xlMicrosoftAccess

juste avant de fermer l'appli XL.

Cordialement,

PGZ

[Rashlack]

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 :

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

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?

[pgz]

Bonsoir.

Essaies comme cela

Code :

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

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

[Rashlack]

Ca fonctionne merci PGZ