[VBA-A]Travailler dans un fichier Excel dans Access
Bonjour à tous,
Je suis débutant en VB et j'ai un problème avec une macro Access que j'essaie d'écrire pour aller modifier un fichier excel, et je suis sur que ca dois être un truc à la ***. Lorsque ce code est exécuté Access me jète en me disant "Erreur automation - Le serveur a généré une exception" ce qui a le mérite d'être très précis et de m'énerver fortement. :furieux:
En effectuant plusieurs tests j'ai remarqué qu'en commentant l'appel "appExcel.Workbooks.Open", aucune erreur n'apparait.
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
26
27
|
Private Sub go_Click()
On Error GoTo Err_go_Click
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture du classeur
Set wbExcel = appExcel.Workbooks.Open("C:\toto.xls")
wbExcel.Close
appExcel.Quit
Set wsExcel = Nothing
Set appExcel = Nothing
Exit_go_Click:
Exit Sub
Err_go_Click:
MsgBox Err.Description
Resume Exit_go_Click
End Sub |
Note : L'erreur apparait que le fichier toto.xls soit crée ou pas.
Merci d'avance pour votre aide
