OVH Cloud OVH Cloud

Un composant ActiveX ne peut pas créer d'objet

3 réponses
Avatar
Johanna
Bonsoir à tous,

En faisant tourner le programme ci-dessous, j'ai l'erreur d'exécution
suivante :
"Un composant ActiveX ne peut pas créer d'objet". Merci de m'aider à
résoudre ce problème.

Sub SendMail()

Dim MonOutlook As Object
Dim MonMessage As Object

'Création d'une instance Outlook
Set MonOutlook = CreateObject("Outlook.Application")

End Sub

3 réponses

Avatar
Philippe Pham Minh
Bonjour,

Si l'indication de Pierre ne suffit pas, essaie de référencer aussi le
fichier dao360.dll (dao350.dll pour Acc97).
Pour ce faire,
1. Recherche cette dll
2. Exécute la commande suivante:
regsvr32 "CheminCompletdao3X0.dll"

Philippe

"Johanna" a écrit dans le message de
news:
Bonsoir à tous,

En faisant tourner le programme ci-dessous, j'ai l'erreur d'exécution
suivante :
"Un composant ActiveX ne peut pas créer d'objet". Merci de m'aider à
résoudre ce problème.

Sub SendMail()

Dim MonOutlook As Object
Dim MonMessage As Object

'Création d'une instance Outlook
Set MonOutlook = CreateObject("Outlook.Application")

End Sub




Avatar
Hubert Canevet
Ah, ça, c'est l'erreur 429.

Je donne des infos, et après je pose des questions à la
suite.

Il y a déjà deux pistes en réponse.
Si ça ne suffit pas, lire ça :
http://support.microsoft.com/default.aspx?scid9366

(ah tiens, jusque là je ne savais pas qu'elle existait en
français)

La version anglaise commence par "Il n'existe pas une
cause unique qui provoque cette erreur", ce qui représente
une bonne introduction pour la suite. Elle m'a l'air bien
plus complète que la française, d'ailleurs.

La version anglaise était référencée à la fin du chat
Access du 15 janvier, à http://minilien.com/?NJBherbk4X

J'ai commencé à m'atteler là-dessus, j'ai déjà eu
l'occasion de corriger trois erreurs et j'ai encore
l'erreur 429. Finalement, comme il y a par ailleurs
quelques doutes sur le disque qui porte le programme
d'installation, j'ai l'impression que je ferais bien de
commencer par dépanner le disque.

Toutefois, comme ces deux histoires durent depuis un
moment, et que le dysfonctionnement du disque n'est pas
continu, j'aimerais savoir si il est possible que le
programme d'installation fournisse la liste des erreurs
rencontrées. J'ai l'impression que si l'application
serveur est capable de fonctionner en solo, mais pas de
supporter son statut serveur Automation, par défaut aucun
message n'est affiché lors de l'installation. En mettant
une option quelque part ou en allant chercher dans un
fichier ensuite, est-ce qu'on ne pourrait pas en savoir
plus long sur la façon dont les choses se sont passées ?

Pendant que je suis sur cette question, on peut facilement
comprendre qu'une mauvaise installation de DAO empêche
Access de travailler en serveur Automation. Est-ce que ça
l'empêche aussi de travailler en application cliente ?
Pour aller chercher des informations dans Word, par
exemple, est-ce qu'on a vraiment besoin de DAO ?

Merci à ceux qui pourront me renseigner.

-----Message d'origine-----
Bonsoir à tous,

En faisant tourner le programme ci-dessous, j'ai l'erreur
d'exécution

suivante :
"Un composant ActiveX ne peut pas créer d'objet". Merci
de m'aider à

résoudre ce problème.

Sub SendMail()

Dim MonOutlook As Object
Dim MonMessage As Object

'Création d'une instance Outlook
Set MonOutlook = CreateObject("Outlook.Application")

End Sub


.



Avatar
Johanna
Un grand merci à Pierre et à Philippe !

"Philippe Pham Minh" a écrit dans le message
de news:
Bonjour,

Si l'indication de Pierre ne suffit pas, essaie de référencer aussi le
fichier dao360.dll (dao350.dll pour Acc97).
Pour ce faire,
1. Recherche cette dll
2. Exécute la commande suivante:
regsvr32 "CheminCompletdao3X0.dll"

Philippe

"Johanna" a écrit dans le message de
news:
Bonsoir à tous,

En faisant tourner le programme ci-dessous, j'ai l'erreur d'exécution
suivante :
"Un composant ActiveX ne peut pas créer d'objet". Merci de m'aider à
résoudre ce problème.

Sub SendMail()

Dim MonOutlook As Object
Dim MonMessage As Object

'Création d'une instance Outlook
Set MonOutlook = CreateObject("Outlook.Application")

End Sub