*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 :
Explication de la macro : elle fait deux choses..Excel attend la fin de l'execution d'une action ole d'une autre application.
- elle execute une macro qui se trouve dans ACCESS
- elle converti un fichier xls en html
merci d'avance pour votre aide
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
Partager