OVH Cloud OVH Cloud

Erreur d'automation

13 réponses
Avatar
tous69
Bonjour

Suite à la réinstallation complet du PC de mon boulot et donc de la
réinstallation de mon programme , une erreur d'automation ce produit apres
la création de l'objet EXCEL.
Je ne voir pas quelle DLL, librerie manque ou quelle astuce exite pour
résoudre mon probleme.

Note( win 98 2eme étition et Office 97 standard)


Set DocExcel = CreateObject("Excel.Application")

erreur d'automation=> DocExcel.Visible = False 'True
DocExcel.DisplayAlerts = False
sauvexcel = "C:\CONTRAT\SAISIE\"
& Month(interface.Label3) & Year
(interface.Label3) & ".xls"
NomFichier = sauvexcel
DocExcel.Workbooks.Open
filename:=NomFichier, Editable:=True

D'avance merci

Tous30@ libre.fr ( remplacer libre par free)

10 réponses

1 2
Avatar
Patrick Philippot
tous69 wrote:
Set DocExcel = CreateObject("Excel.Application")

erreur d'automation=> DocExcel.Visible = False 'True
DocExcel.DisplayAlerts > False sauvexcel > "C:CONTRATSAISIE" & Month(interface.Label3) & Year
(interface.Label3) & ".xls"
NomFichier = sauvexcel
DocExcel.Workbooks.Open
filename:=NomFichier, Editable:=True



Bonjour,

Comme l'erreur se produit à la première tentative d'accès à l'objet
Excel, cela signifie probablement qu'il n'a pas été instancié
correctement. Si vous pouviez nous donner le texte de l'erreur, ça
aiderait. Vous pouvez tester l'instanciation correcte de l'objet avec
"If DocExcel Is Nothing".

Si CreateObject ne réussit pas à instancier Excel.Application, c'est
probablement qu'Excel est mal enregistré. Essayez de lancer la commande
suivante:

excel /regserver

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Avatar
tous69
Bonjour

Merci beaucoup de votre réponse. je regarderais cela ce soir si j'ai le
temps ou plus tard. Je vous tiendrais au courant.

tous30 @ libre . fr
Remplacer libre par free

"Patrick Philippot" a écrit dans le message
de news:%
tous69 wrote:
> Set DocExcel = CreateObject("Excel.Application")
>
> erreur d'automation=> DocExcel.Visible = False 'True
> DocExcel.DisplayAlerts > > False sauvexcel > > "C:CONTRATSAISIE" & Month(interface.Label3) & Year
> (interface.Label3) & ".xls"
> NomFichier = sauvexcel
> DocExcel.Workbooks.Open
> filename:=NomFichier, Editable:=True

Bonjour,

Comme l'erreur se produit à la première tentative d'accès à l'objet
Excel, cela signifie probablement qu'il n'a pas été instancié
correctement. Si vous pouviez nous donner le texte de l'erreur, ça
aiderait. Vous pouvez tester l'instanciation correcte de l'objet avec
"If DocExcel Is Nothing".

Si CreateObject ne réussit pas à instancier Excel.Application, c'est
probablement qu'Excel est mal enregistré. Essayez de lancer la commande
suivante:

excel /regserver

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr




Avatar
tous69
Re bonjour

Bien Voila j'ai essayer Excel /regserver, cela n'a pas fonctionner j'ai
donc installer office 97 pro
j'ai refait un Excel /regserver, mais toujours pareil !

Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )

Encor merci de votre aide

tous30@ libre .fr
Remplacer libre par free

Patrick Philippot <patrick.philippot @mainsoft.xx> a écrit dans le message :
#
tous69 wrote:
> Set DocExcel = CreateObject("Excel.Application")
>
> erreur d'automation=> DocExcel.Visible = False 'True
> DocExcel.DisplayAlerts > > False sauvexcel > > "C:CONTRATSAISIE" & Month(interface.Label3) & Year
> (interface.Label3) & ".xls"
> NomFichier = sauvexcel
> DocExcel.Workbooks.Open
> filename:=NomFichier, Editable:=True

Bonjour,

Comme l'erreur se produit à la première tentative d'accès à l'objet
Excel, cela signifie probablement qu'il n'a pas été instancié
correctement. Si vous pouviez nous donner le texte de l'erreur, ça
aiderait. Vous pouvez tester l'instanciation correcte de l'objet avec
"If DocExcel Is Nothing".

Si CreateObject ne réussit pas à instancier Excel.Application, c'est
probablement qu'Excel est mal enregistré. Essayez de lancer la commande
suivante:

excel /regserver

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr




Avatar
Gloops
Ouais, eh ben ...
ça fait un an et demi que j'ai écrit une macro qui aurait bien rendu
service, mais que je n'ai pas osé proposer au destinataire car j'étais
incapable de la faire tourner sur ma machine perso (qui a pourtant
Office et VB6), et je trouvais que ça faisait désordre. Rien ne dit dans
ces conditions que je saurais la faire tourner sur la machine destinataire.

Je n'ai pas trouvé de volontaire ici pour la tester ...
J'ai déjà vu des gens sérieux choisir Java pour éviter ce style de problème.

Je vais suivre ici, pour voir si des fois la même recette peut marcher
dans les deux cas. Sinon je lancerai un autre fil ensuite.
_____________________________________
tous69 a écrit, le 18/10/2004 19:37 :

Re bonjour

Bien Voila j'ai essayer Excel /regserver, cela n'a pas fonctionner j'ai
donc installer office 97 pro
j'ai refait un Excel /regserver, mais toujours pareil !

Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )

Encor merci de votre aide

tous30@ libre .fr
Remplacer libre par free

Patrick Philippot <patrick.philippot @mainsoft.xx> a écrit dans le message :
#

tous69 wrote:

Set DocExcel = CreateObject("Excel.Application")

erreur d'automation=> DocExcel.Visible = False 'True
DocExcel.DisplayAlerts >>> False sauvexcel >>>"C:CONTRATSAISIE" & Month(interface.Label3) & Year
(interface.Label3) & ".xls"
NomFichier = sauvexcel
DocExcel.Workbooks.Open
filename:=NomFichier, Editable:=True



Bonjour,

Comme l'erreur se produit à la première tentative d'accès à l'objet
Excel, cela signifie probablement qu'il n'a pas été instancié
correctement. Si vous pouviez nous donner le texte de l'erreur, ça
aiderait. Vous pouvez tester l'instanciation correcte de l'objet avec
"If DocExcel Is Nothing".

Si CreateObject ne réussit pas à instancier Excel.Application, c'est
probablement qu'Excel est mal enregistré. Essayez de lancer la commande
suivante:

excel /regserver

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr









Avatar
tous69
Salut
Heu désoler mais je ne suis pas volontaire pour une bonne et simple raison,
qui est l'a suivante: C'est pour les ordinateurs du boulot et il est hors de
question que je met le moindre programme que je ne comprenne pas.

tous30@ libre .fr
Remplacer libre par free

"Gloops" a écrit dans le message de
news:41745102$0$4022$
Ouais, eh ben ...
ça fait un an et demi que j'ai écrit une macro qui aurait bien rendu
service, mais que je n'ai pas osé proposer au destinataire car j'étais
incapable de la faire tourner sur ma machine perso (qui a pourtant
Office et VB6), et je trouvais que ça faisait désordre. Rien ne dit dans
ces conditions que je saurais la faire tourner sur la machine


destinataire.

Je n'ai pas trouvé de volontaire ici pour la tester ...
J'ai déjà vu des gens sérieux choisir Java pour éviter ce style de


problème.

Je vais suivre ici, pour voir si des fois la même recette peut marcher
dans les deux cas. Sinon je lancerai un autre fil ensuite.
_____________________________________
tous69 a écrit, le 18/10/2004 19:37 :

> Re bonjour
>
> Bien Voila j'ai essayer Excel /regserver, cela n'a pas fonctionner j'ai
> donc installer office 97 pro
> j'ai refait un Excel /regserver, mais toujours pareil !
>
> Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )
>
> Encor merci de votre aide
>
> tous30@ libre .fr
> Remplacer libre par free
>
> Patrick Philippot <patrick.philippot @mainsoft.xx> a écrit dans le


message :
> #
>
>>tous69 wrote:
>>
>>> Set DocExcel = CreateObject("Excel.Application")
>>>
>>> erreur d'automation=> DocExcel.Visible = False 'True
>>> DocExcel.DisplayAlerts > >>> False sauvexcel > >>>"C:CONTRATSAISIE" & Month(interface.Label3) & Year
>>>(interface.Label3) & ".xls"
>>> NomFichier = sauvexcel
>>> DocExcel.Workbooks.Open
>>>filename:=NomFichier, Editable:=True
>>
>>Bonjour,
>>
>>Comme l'erreur se produit à la première tentative d'accès à l'objet
>>Excel, cela signifie probablement qu'il n'a pas été instancié
>>correctement. Si vous pouviez nous donner le texte de l'erreur, ça
>>aiderait. Vous pouvez tester l'instanciation correcte de l'objet avec
>>"If DocExcel Is Nothing".
>>
>>Si CreateObject ne réussit pas à instancier Excel.Application, c'est
>>probablement qu'Excel est mal enregistré. Essayez de lancer la commande
>>suivante:
>>
>>excel /regserver
>>
>>--
>>Patrick Philippot - Microsoft MVP
>>MainSoft Consulting Services
>>www.mainsoft.fr
>>
>>
>
>
>



Avatar
Patrick Philippot
tous69 wrote:
Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )



Voir ces documents:

http://support.installshield.com/kb/view.asp?articleid=Q105810
http://support.microsoft.com/?scid=kb;EN-US;Q321915

Il y a probablement un mélange de DLLs sur votre système (cela semble
cohérent puisque vous avez parlé de réinstallation).

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Avatar
tous69
Bonjour
Merci beaucoup de votre aide
je vais essaye cela bien que mon anglais laisse a décire!

tous30 @ libre . fr
remplacer libre par free


"Patrick Philippot" a écrit dans le message
de news:
tous69 wrote:
> Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )

Voir ces documents:

http://support.installshield.com/kb/view.asp?articleid=Q105810
http://support.microsoft.com/?scid=kb;EN-US;Q321915

Il y a probablement un mélange de DLLs sur votre système (cela semble
cohérent puisque vous avez parlé de réinstallation).

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr




Avatar
Gloops
Salut,

Ben tu sais ici c'est un newsgroup, hein.
Si quelqu'un peut proposer un coup de pouce il propose, si un autre ne
peut pas il ne propose pas, il n'y a pas de malaise ...

Je mentionnais juste que ça n'est pas un problème neuf, et qu'on est un
paquet à galérer avec. Si seulement l'expérience de l'un profitait à
l'autre ...
_____________________________________
tous69 a écrit, le 19/10/2004 08:59 :

Salut
Heu désoler mais je ne suis pas volontaire pour une bonne et simple raison,
qui est l'a suivante: C'est pour les ordinateurs du boulot et il est hors de
question que je met le moindre programme que je ne comprenne pas.

tous30@ libre .fr
Remplacer libre par free


Avatar
tous69
Re bonjour

Encor merci
tout est rentré dans l'ordre quan d j'ai remis les anciennes version des
ole32 oleaut32 et les autres comme decrie dans les supports

Mille merci

tous30 @ libre.fr


Patrick Philippot a écrit dans le message :

tous69 wrote:
> Texte de l'erreur: erreur d'exécution -2147023067 ( 80070725 )

Voir ces documents:

http://support.installshield.com/kb/view.asp?articleid=Q105810
http://support.microsoft.com/?scid=kb;EN-US;Q321915

Il y a probablement un mélange de DLLs sur votre système (cela semble
cohérent puisque vous avez parlé de réinstallation).

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr




Avatar
tous69
Bonjour

Ho....... faite ta macro elle sert à quoi ?
il est possible que je format un pc d'ici 15 jours
Si tu veux je veux bien l'a teste ( si sensé que je puisse ) ta macro et si
tu n'est pas presser!

tous30@ libre .fr
remplace libre par free


Gloops a écrit dans le message :
4174da41$0$31745$
Salut,

Ben tu sais ici c'est un newsgroup, hein.
Si quelqu'un peut proposer un coup de pouce il propose, si un autre ne
peut pas il ne propose pas, il n'y a pas de malaise ...

Je mentionnais juste que ça n'est pas un problème neuf, et qu'on est un
paquet à galérer avec. Si seulement l'expérience de l'un profitait à
l'autre ...
_____________________________________
tous69 a écrit, le 19/10/2004 08:59 :

> Salut
> Heu désoler mais je ne suis pas volontaire pour une bonne et simple


raison,
> qui est l'a suivante: C'est pour les ordinateurs du boulot et il est


hors de
> question que je met le moindre programme que je ne comprenne pas.
>
> tous30@ libre .fr
> Remplacer libre par free



1 2