Discussion :

[boubouh]

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

[ouskel'n'or]

Et si tu ajoutes

wbk.activate

après

Set wbk = .Workbooks.Add

?

Tu dis

A+

[leroissejp]

Bonjour
J'ai essayer ton code chez moi et celà fonctionne très bien.
As-tu placé la références à Excel ??
Si oui, alors je ne comprend pas.

jpleroisse

[boubouh]

Salut,

Merci pour vos réponses mais ça ne marche toujours pas.
- ouskel'n'or : wbk.activate aucune incidence
- leroissejp : oui jai referncé la librairie Microsoft Excel 8.0 Object Library.

Quelqu'un aurait une autre idée?

[jmfmarques]

une petite visite à ce lien :

http://www.aspfaq.com/show.asp?id=2419

t'aiderait-rllr ?


:

[jmfmarques]

Lis également tout ce que tu trouveras là :

http://support.microsoft.com/default.aspx/kb/257757

J'espère que celà t'aidera.

[AlainTech]

Pour moi, aussi, le code fonctionne parfaitement tel quel.
Testé sous Access 97.

As-tu bien mis le code dans le bouton d'un formulaire?

Ton bouton s'appele-t-il bien ExcelAutomation01?

[boubouh]

Salut,

je n'ai toujours pas de solution à mon problème malheureusement.
(Alain Tech j'ai bien mis mon code dans un formulaire).

Ce que je ne comprend pas c'est que je fais de l'automation avec Word et je n'ai pas de problème.

J'ai essayé et toujours les mêmes problèmes. Impossible d'appliquer une fonction à un objet Excel.
Par exemple la fonction Visible:
lorsque je lance le script, il m'ouvre excel, et hop arrivé à cette fonction il me sort l'erreur que je vous ai décrite en premier lieu.
Devrais-je essayé de réinstaller Excel? Une autre idée?

[SilkyRoad]

bonsoir

ces liens pourront peut etre t'aider

http://www.officefrustration.com/q-t_228655-WindowsXPOffice97-incomaptibility.html

http://support.microsoft.com/?id=242375


tu peux refaire des essais en utilisant

Code :

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

1
2
3
4
Dim xlApp As Object 
Dim wbk As Object 
Dim sht As Object
...

bonne soiree
michel

[boubouh]

Yeeeeeeeeeeeeeessssssssss!!!!!!!!!!!!
Merci SilkyRoad!!

Impec ça marche maintenant. En effet c'est un problème entre Office 97 et WinXP!
Comme l'a signaler SilkyRoad, il faut déclarer de cette façon:

Code :

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

1
2
3
4
5
6
7
8
 
Dim xlApp As Object 
Dim wbk As Object 
Dim sht As Object 
 
Set xlApp = New Excel.Application
Set wbk = xlApp.Workbooks.Add
Set sht = xlApp.wbk.ActiveSheet

Pour ceux qui serait intérressait par le module de Mr. Prestreau, et qui rencontrerait le même problème que moi, il suffit de remplacer:

Code :

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

1
2
 
Public Excel_Application As Excel.Application

par

Code :

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

1
2
 
Public Excel_Application As Object

dans les premiers lignes du module, tout simplement...

Merci encore SilkyRoad.

A+