Discussion :

[pilou0013]

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

[SfJ5Rpw8]

et si tu enléve le on error goto ... tu n'as pas plus de message ?

[pilou0013]

En fait mon pc a freezer durant 5 secs est apres j'ai une nouvelle fenetre d'erreur qui apparait avec le même message. Mais c'est pas moi qui affiche ça, c'est VB. On me propose continuer (en grisé), fin, débugage et aide. Le code d'erreur est le même.

[SfJ5Rpw8]

en cliquant sur continuer tu devrai voir la ligne en cause ... ( c'est quoi freezer?)

[pilou0013]

Ben c'est justement la ligne à laquelle je pensais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set wbExcel = appExcel.Workbooks.Open("C:\toto.xls")

un "freeze " c'est quand le pc répond plus.

[pilou0013]

J'ai trouvé. C'était parce que il y avait excel 2000 et excel 2003 installés