Problème module access

[nicoosito]

Bonjour,

Je viens de créer un module access avec le code ci-desous :

Code :

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
Sub Import_OWR()

'Application.ScreenUpdating = False
'Masque l'execution
DoCmd.SetWarnings False                           'message off
Dim XlApp As New Excel.Application
XlApp.Visible = False

XlApp.Workbooks.Open Filename:= _
        "T:\DIR\Filiales\Operation weekly reports\Import\Fichier xls-access\Import.xls"
        

'XlApp.Workbooks.Open Filename:= _
        "T:\DIR\Filiales\Operation weekly reports\Import\tmtua.xls"
        
'XlApp.Workbooks.Open Filename:= _
        "T:\DIR\Filiales\Operation weekly reports\Import\tllf.xls"
        

Workbooks("Import.xls").Activate
XlApp.Run "Macro5()"                'Lance la macro du fichier import.xls
DoCmd.SetWarnings True                            'message on
        
        
End Sub

Mon problème, est que arrivé à la ligne XlApp.Run "Macro5()" access m'affiche une erreur en me disant qu'il est impossible de lancer la "macro5" car introuvable...

Quelqu'un aurait-il une idée ?

Merci

[jpcheck]

Salut,

une question elementaire pour commencer :
Ta macro Macro5 est-elle dans un module, declaree en portee Public ?