Salut les gens,

Voilou j'ai un problème lors de l'automation d'access vers excel. Je me suis inspiré du tuto suivant:
- http://cafeine.developpez.com/access.../excel/#LVII-D

-----------------------------------------------------------------------------
Voici mon code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub ExcelAutomation01_Click()
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
 
' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = New Excel.Application
 
With xlApp
   ' Rendre Excel visible
   '.Visible = True
 
   ' Créer un nouveau classeur
   Set wbk = .Workbooks.Add
   'Set wbk = .Workbooks.Open("C:\Documents and Settings\Admin\Mes documents\Boulot\Absences\trimestre.xls")
 
   ' Instancier la feuille active dans le classeur
   Set sht = wbk.ActiveSheet
 
   ' Ecrire quelques valeurs
   With sht
       .Range("A1").Value = 10
       .Range("A2").Value = 20
       .Range("A3").Value = 30
       .Range("A4").FormulaLocal = "=somme(A1:A3)"
   End With
 
   ' Sauvegarder et fermer le classeur
   wbk.SaveAs "C:\Mes documents\test.xls"
   wbk.Close
 
   ' Quitter Excel
   .Quit
End With
 
' Libérer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
 
End Sub
Hors lors ce que j'execute, j'ai le message suivant:
"Erreur d'éxecution -2147417851 (80010105)
La méthode Add de l'objet Workbooks a echoué"

L'objet Excel se créer bien apperement, mais impossible de lui appliquer une fonction (woorkbooks, visible, etc.)
J'ai Access et Excel 97, j'ai ajouté les librairies necessaires mais rien n'y fait.
Est-ce que quelqu'un aurait une idée???