Discussion :

[titeZ]

Bonjour,

Je souhaite lancer une application donc depuis VB et qui utilise du VBA de excel mais lorsque je la lance j'ai :

Erreur d'éxécution '-2147221080 (800401a8)':
Erreur automation...

Est ce que quelqu'un sait a quoi cela est du et surtout comment "réparer" ça...

Merci

[SfJ5Rpw8]

et tu ne sais pas sur qu'elle ligne de code ..?

[Phifi]

Du code ? où ça ?

[titeZ]

et tu ne sais pas sur qu'elle ligne de code ..?

sisi
voila mon bout code finalement pas trés compliqué

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
    
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel


Set appExcel = CreateObject("Excel.Application")

Set wbExcel = appExcel.Workbooks.Open("O:\DBO\RCT\R_PEGASE\Zohra\Procedure_comparaison.xls")

Set wsExcel = wbExcel.Worksheets(1)
 

End Sub

[Phifi]

Le fichier est bien accessible ? (O:\DBO\RCT\R_PEGASE\Zohra\Procedure_comparaison.xls)

ou bien en remplaçant

Code :

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

1
2
3
4
5
6
 
Set wsExcel = wbExcel.Worksheets(1) 
 
par
 
Set wsExcel = wbExcel.ActiveSheet

ça donne quoi ?

[titeZ]

Le fichier est accessible j'ai effectué le remplacement mais ca donne la même erreur...

[SfJ5Rpw8]

peu-être un DoEvents ... entre tes 2 lignes histoire de donner le temps au classeur de s'ouvrir...

[Vld44]

compilation complète ?

[titeZ]

Non avec le do events non plus


Compilation complete c'est a dire ?
TU veux que je mette mon code VBA et VB C'est ça ?

[Phifi]

Quelle est la version d'Excel utilisée ?

[titeZ]

excel 2000
9.0

[titeZ]

Ah...
Bon bah ça remarche....
Je n'ai absolument aucune idée du pourquoi mais ça remarche...

Merci ... tout le monde!