Problème Automation Access --> Excel
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:
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???
