Ouverture d'Access sans le "flash"
Bonjour à tous,
J'ai besoin de votre aide!
À partir d'Excel, je fais exécuter une macro qui est en Access...
Le problème est que j'ai un flash à l'écran (Access ouvre et referme).
J'aimerai que ce soit transparent pour l'usager et que le "Flash" ne soit pas là... J'ai essayé plusieurs méthode mais en vain.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub RUNMACRO()
Dim oAcApp As Object 'Access.Application
Set oAcApp = CreateObject("Access.Application")
'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "\\Forecast national\NEXUS\DATA\DATA_FROM_EXCEL.accdb"
'Exécuter la macro
oAcApp.docmd.RUNMACRO "Mc_MAJ"
'Fermer la base de données
oAcApp.CloseCurrentDatabase
'Libérer les ressources
Set oAcApp = Nothing
End Sub |
Merci de votre aide d'avance !:)
