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:
Hors lors ce que j'execute, j'ai le message suivant:
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
"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???
Partager