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.
En effectuant plusieurs tests j'ai remarqué qu'en commentant l'appel "appExcel.Workbooks.Open", aucune erreur n'apparait.

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
 
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