Hello ,

Je lance une macro access sous excel tous fonctionne très bien sauf que ça me lance access comme si j'avais mis un point d'arrêt. Avant ça ne me lançais pas access . ( cette etape etais transparente pour l'utilisateur).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Macro_Access()
Dim acApp As New Access.Application
Set acApp = New Access.Application
'Ouverture de la base de données
acApp.OpenCurrentDatabase ("blablablablab")
acApp.Visible = False
' Execution de la macro : Import_fichier qui elle même va appeler une
' fonction de chargement de la table de travail
acApp.DoCmd.RunMacro "Alimentation" ' = copi ds histo
acApp.Quit
Set acApp = Nothing
End Sub