*Bonjour*

Voila mon problème :

J'ai deux fichiers xls indépendants qui doivent exécuter la meme macro lors de leur fermeture.

Sur un des fichiers, ca fonctionne parfaitement.. la macro s'exécute.
Sur l'autre fichier, j'ai un message d'erreur :

Excel attend la fin de l'execution d'une action ole d'une autre application.
Explication de la macro : elle fait deux choses..
- elle execute une macro qui se trouve dans ACCESS
- elle converti un fichier xls en html

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim oAcApp As Object 'Access.Application
 
Set oAcApp = CreateObject("Access.Application")
 
'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "U:\CIC\Base des données CIC\newbase.mdb"
 
'Exécuter la macro
oAcApp.DoCmd.RunMacro "export_activité"
 
'Fermer la base de données
oAcApp.CloseCurrentDatabase
 
'Libérer les ressources
Set oAcApp = Nothing
'-----------------------------ajout alain
strMonFichierExcel = strRepertoireExcel & "U:\CIC\Base des données CIC\intermediaire.xls"
'strmessageboxAccess = strRepertoireAccess & "Patientez pendant la mise a jour du fichier"
 
'MsgBox strMonFichierExcel 'Uniquement pour vérifier si le chemin est correct
'MsgBox strmessageboxAccess
 
Dim appExcel As Object
 
Set appExcel = CreateObject("Excel.Application")
 
appExcel.Visible = False
 
With appExcel
 
    .Workbooks.Open strMonFichierExcel
 
 
    .Run ("Macro1") 'Petite correction ici par rapport à mon 1er code
 
End With
 
appExcel.Quit
 
Set appExcel = Nothing
 
'fin de ouvre excel
 
End Sub
merci d'avance pour votre aide