Discussion :

[warraf]

bonjour,
je viens d'avoir un problème sur ma base de donnée.
c'est une erreur d'automation.
erreur d'exécution'-2147417851 (80010105)':

lorque je lance le débuggeur j'atteri sur cette ligne.
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Excel.xls")

le truc c'est que je n'ai même pas toucher à ce formulaire et avt il marchait très bien, il sert à faire un export de statistique sur excel.

svp aidez moi

[Nohant]

Le fichier Excel.xls existe dans le répertoire de l'application ?
Y a pas un message en plus du n° d'erreur ?

lorsque tu compiles ta base tu n'as pas d'erreur ?

@+

[warraf]

oui le fichier Excel.xls existe dans le repertoire.

ya ecrit aussi " le serveur a généré une exception"


comment ça compile??
quand je la lance elle fonctionne ya que ma fonction d'export qui foire.
ma base est une base acces 2000 et j'utilise excel 2003.
la librairie que j'utilise est excel 11.

[Nohant]

quand la base est lancée, tu fais ALT + F11 => ça ouvre VBE, là tu vas dans le menu Débogage > Compiler

[warraf]

j'ai pas d'erreur quand je compile. Mais quand je lance l'exportation ça plante.
J'ai déjà eu cette erreur quand je n'avait pas le logiciel excel sur le pc mais normalement cela marche.

[warraf]

voici un peut plus de mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
    'Declaration des variables excel
    Dim xlApp As excel.Application
    Dim xlSheet As excel.Worksheet
    Dim xlBook As excel.Workbook
 
    'initialisation des variables excel
    Set xlApp = excel.Application
    Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Excel.xls")

je pense que l'erreur vient de l'interaction entre acces et excel mais je ne sait pas comment la résoudre.

[Arkham46]

slt,

je pencherais pour :

Code :

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

Set xlApp = New Excel.Application

ou mieux (selon MSDN) :

Code :

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

1
2
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

Il paraît que ça évite certaines erreurs d'utiliser CreateObject au lieu de New...

[warraf]

j'ai essayer les deux et ça plante pareil.

cela peut il provenir de la version d'Excel?

[Arkham46]

j'ai essayer les deux et ça plante pareil.

cela peut il provenir de la version d'Excel?

A priori la version d'excel qui est installée doit correspondre à la référence (dans outils-> référence).

Peut-être une réparation ou réinstallation de Excel pour remettre le serveur OLE d'applomb.

[warraf]

merci tu avais résond il fallait réinstaller.
normalement je l'aurai trouver tous seul mais sur ce coup la j'ai paniquer car c super important et j'ai pas réfléchit.