Ouvrir Excel a partir de VBA access
Je tente d'ouvrir un workbook a partir d'un bouton dans access en utilisant le code suivant :
Code:
1 2 3 4 5 6 7 8
|
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open ("E:\DB\Outil\Demande de credit.xlsm")
objExcel.Visible = True
objExcel.UserControl = True
Set objExcel = Nothing |
Ce qui fonctionne très bien. Cependant il ouvre un nouveau Excel à chaque fois au lieu d'ouvrir seulement un workbook dans le excel déjà ouvert. Alors lorsque j'utilise mon bouton dans mon chiffrier pour fermer
Code:
1 2 3 4 5
|
Application.ActivateMicrosoftApp xlMicrosoftAccess
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True |
je peux me retrouver avec plusieurs fenetre excel ouverte sans aucun workbook...
J'ai tenté d'utiliser la fonction
Code:
1 2 3 4
|
Application.ActivateMicrosoftApp xlMicrosoftAccess
Application.DisplayAlerts = False
Application.Quit |
cependant si j'ouvre mon ficher "demande de crédit" a partir d'access et que j'ouvre un autre chiffrier par moi même ou crée un nouveau, lorsque je roule la fonction, tout se ferme sans sauvegarder...
Bref j'ai besoin d'un code qui va vérifier si j'ai un excel déjà ouvert (sans nom précis, mais simplement l'application excel), si un excel est déjà en cour, on ouvre un nouveau workbook dans celui-ci, sinon createobject et on en fait un nouveau.. .
Merci de votre aide