Bonjour à tous,

Je fais appel à vous car malgré toutes mes recherches sur ce forum et sur internet en général, je ne parviens pas à mes fins.
Je m'explique, j'ai une base ACCESS dans laquelle j'importe des fichiers EXCEL.
Avant chaque importation, j'ouvre le fichier excel et effectue une macro afin de lui appliquer une mise en forme nécessaire.

L'importation du fichier Excel se fait directement via un bouton dans ACCESS.

J'aimerai "simplement", associer à ce bouton, avant le code pour importer le fichier, un code permettant de :

- Ouvrir le fichier Excel
- Exécuter la macro
- Enregistrer et fermer le fichier

A savoir que mon code est sur le personnal.xlsb

J'arrive à ouvrir le fichier excel via ACCESS mais après impossible de réaliser la macro, voici mon code actuel:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Commande0_Click()
 
    Set objApp = CreateObject("excel.application")
    FichierExcel = "C:\Local\TEMP\CYCLE_ECART_USINES_COMPO.xls"
 
    Set objApp2 = CreateObject("excel.application")
    FichierExcel2 = "C:\Users\J0442234\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"
 
    Set objbook = objApp.Workbooks.Open(FichierExcel, ReadOnly:=False)
    objApp.Visible = False   'si on veut visualiser
 
    Set objbook = objApp2.Workbooks.Open(FichierExcel2, ReadOnly:=False)
    objApp2.Visible = True
 
    Excel.Run "TEST_TEMP", 1
 
End Sub
Je suis un peu perdu, j'ai essayé pleins de choses différentes en fonction de ce que j'ai pu lire, mais je n'y parviens pas, avez vous des idées ?

En vous remerciant

Baptiste