Bonjour,
Je ne suis en train de construire une macro, qui doit à partir de ACCESS 2003 , chercher des valeurs dans des xls, pour les importer dans ma database.
Etant plus familier ( a peu près) avec le XL 2007, j'ai compilé mon code sur celui ci en pensant qu'il était compatible avec ACCESS 2003.
j'ai testé mon code ci-dessous :
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 Function cmdOpenExcel_file(Path As String) As Object 'Application.DisplayAlerts = False Dim xls As Excel.Application On Error GoTo errHnd Set xls = CreateObject("Excel.Application") xls.Workbooks.Open Path xls.Visible = True Exit Function errHnd: MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source End Function Sub Call_OpenXlsFile() Call cmdOpenExcel_file("D:\Users\didier.cheung\Desktop\Reforming test.xls") End Sub
Il fonctionne parfaitement sur XL 2007 mais m'affiche une erreur de compilation sur ACS 2003. :/
Comment ca se fait?
Merci d'avance de votre retour XLnautes!
Partager