Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème pour fermer excel après ouverture access

  • Initiateur de la discussion Initiateur de la discussion dav911
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dav911

XLDnaute Nouveau
Bonjour,

Voilà, j'utilise office 2010 depuis quelques temps et, j'ai crée via excel, un bout de code qui me permet d'ouvrir une base access.Le problème, c'est qu'acess s'ouvre bien, mais sur les dernières lignes de code excel, il ferme tout, access et excel.🙁



Code:
Sub ouvre_access()


[CODE]dim appaccess As Access.Application, appexcel As Excel.Application, wb As Excel.Workbook
Dim cnnemp As ADODB.Connection
Set appaccess = CreateObject("access.application")
Set appexcel = CreateObject("excel.application")



appaccess.OpenCurrentDatabase ("C:\Users\8\Documents\P\suivi.mdb")
Windows(1).WindowState = xlMaximized
'DoCmd.RunMacro "demarrage"
'Enregistre excel et ferme l'application

Application.Quit
  
  
   
End Sub
 
Re : Problème pour fermer excel après ouverture access

Bonsoir et merci pour la réponse.

Pas d'amélioration.
Est ce que ça peut venir d'une référence ?

Sont cochées :

-visual basic for applications
-Microsoft excel 14 object Library
- ole automation
- Microsoft office 14 object Library
- Microsoft access 14 object Library
- Microsoft activex data objects 2.6 Library
- Microsoft dao 3.6 object Library

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
575
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…