Discussion :

[niko8181]

bonjour
j'ai une fonction VBA ACCESS qui ouvre un classeur excel pour exécuter une
macro.
Le code pour ouvrir le classeur excel est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim appExcel As Object
    Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = True
    With appExcel
        .Workbooks.Open (Chemin_fichiers_base & "Mef BDC 2010.xls")
        .Run ("Module1.mef_bdc")
    End With
    appExcel.Quit
    Set appExcel = Nothing

Si je mets appExcel.Visible = True , aucun problème, excel s'ouvre et ma macro tourne très rapidement.

Mais si je mets appExcel.Visible = False , Excel ne s'ouvre pas, ce qui est normal, la macro s'exécute mais trèèès lentement.
(30 min pour générer un fichier au lieu de qq secondes)

Voyez vous un moyen de remédier à cela ?

merci

[Psychopathe]

Je ne sais pas ce qu'il y a exactement en plus dans ton code mais essaie ceci en ajoutant la référence "Microsoft Excel X.0 Object Library" (Outils -> Références):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Dim appExcel As Excel.Application, classeur as Excel.Workbook
    Set appExcel = CreateObject("Excel.Application")
    set classeur= appExcel.Workbooks.Open(Chemin_fichiers_base & "Mef BDC 2010.xls")
 
    classeur.Close False
    appExcel.Quit
    Set classeur= Nothing
    Set appExcel = Nothing

C'est plus propre comme ça...