compatibilité macro excel 97 2007

Version imprimable

Bonjour a tous,

J'ai un big probleme que je ne comprends pas.
J'ai fait un fichier excel qui me permet par macro d'envoyer un mail apres un certain nombre d'execution.
j'ai pratiquement fais tous mon programme avec excel 97/2003. Et tous fonctionne correctement : generation ouverture outllok, gezneration du mail,...etc
mais lorsque je lance la même macro (meme fichier sur excel 2007) j'obtiens un message d'erreur :

si joint le detaille de ma macro :

Code:

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
43
44
45
46
47
48
Sub mail4()
 
    Dim MonOutlook, MonMessage As Object
    Dim Corps, Corps1, Corps2, Corps3, Corps4 As String
    Dim Sujet, adresse, nomfichier As String
 
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createitem(0)
 
    MonMessage.Display
    Sheets("mail").Visible = True
    Sheets("mail").Select
    Sujet = ActiveSheet.Range("A7").Value
    MonMessage.Subject = "AQG 30 : " & Mid(ActiveWorkbook.Name, 1, 16) & Sujet
 
    Corps1 = Cells.Range("A27").Value
    adresse = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    Range("E1") = adresse
    nomfichier = ActiveWorkbook.Name
    Corps2 = Cells.Range("A28").Value
    Corps3 = Cells.Range("A29").Value
    Corps4 = Cells.Range("A30").Value
    Corps = "<A>Bonjour,<br></A>" & _
            "<A><br></A>" & _
            "<A>" & Corps1 & "<br></A>" & _
            "<A><br></A>" & _
            "<A HREF=""" & Range("E1") & """>" & nomfichier & "</A>" & _
            "<A><br></A>" & _
            "<A><br></A>" & _
            "<A>" & Corps2 & "<br></A>" & _
            "<A><br></A>" & _
            "<A>" & Corps3 & "<br></A>" & _
            "<A><br></A>" & _
            "<A>" & Corps4 & "<br></A>" & _
            "<A><br></A>" & _
            "<A>Cordialement.<br></A>"
 
    MonMessage.HTMLBody = Corps
    Sheets("mail").Visible = False
    Sheets("Page 3 commerciale + CDP").Select
    Set Raccourci = Nothing
    Set MonOutlook = Nothing
End Sub
 
sous excel 97/2003 aucun probleme mais sous  excel 2007 jai une erreur d'execution des la ligne 
 
 Set MonOutlook = CreateObject("Outlook.Application")

Erreur d'execution 429 : Un composant active X ne peut pas créer d'objet.

Please un enorme help, car je dois presente ce fichier demain a mon boss!!!

Merci d'avance

09/04/2008, 12h15
fring

Bonjour,

Une question : le pc sur lequel est installé Excel 2007 tourne sous Vista et celui sur lequel est installé Excel 97/2003 tourne sous Xp ?

Ou bien sont-ils tous les deux sous Xp ?
09/04/2008, 12h18
kikilou

Citation:

Envoyé par fring

Bonjour,

Une question : le pc sur lequel est installé Excel 2007 tourne sous Vista et celui sur lequel est installé Excel 97/2003 tourne sous Xp ?

Ou bien sont-ils tous les deux sous Xp ?

Salut merci de ton aide :
Reponse les deux PC tourne sous XP SP2
09/04/2008, 12h25
pgz

Bonjour.

Quelle est la ligne de code qui renvoie l'erreur?
As-tu essayé de déclarer MonOutlook comme Outlook.application? MonMessage comme Outlook.MailItem?
La bibli de réfréence est bien cochée?
C'est quoi la variable Raccourci?

Bon courage,

PGZ
09/04/2008, 12h31
neupont

Trouvé sous ce lien : http://access.developpez.com/faq/?page=Bug#CompActivex

ça peut aider ?

"Cette erreur peut apparaître sur un poste alors que l'on n'a aucun problème sur un autre.
- Soit il y a une erreur de code (voir le détail chez Microsoft en suivant le lien plus bas),
- Soit la DLL DAO360.dll est absente (cas classique : il suffit de l'installer)
- Soit elle est présente ... mais mal enregistrée.

Microsoft conseille de désinstaller Office, puis de réinstaller.
Généralement, après ça marche.

Cas (très) particulier (et c'est la précision...) :
Si l'utilitaire de sauvegarde automatique d'Outlook est installé (backup des *.pst), on obtient l'erreur 429. Si on le désinstalle, ça marche. Il semble donc que les 2
soient incompatibles.

L'erreur se déclenche uniquement si l'application "fille" (Word, Excel, Outlook...) est fermée. Si elle est ouverte, ça marche (CreateObject se comporte comme
GetObject).

Voila, nous n'avons aucune explication technique à cela ... mais la désinstallation du backup d'Outlook a résolu notre problème."

Edit : j'oubliais le lien dont il est fait mention : http://support.Microsoft.com/default...d=kb;fr;244264
09/04/2008, 12h34
kikilou

en ce qui concerne outlook.application et outlook.mailitem, je viens d'essayer et cela ne marche toujours pas : toujours la meme erreur sur la ligne
Set MonOutlook = CreateObject("Outlook.Application")
erreur d'execution 429 un composant activeX ne peut pas céer d'objet.

la reference Microsoft outllok objet library est bien coché dans mes references.

tu penses que cela peut venir du nom de mes variables MonOutlook et MonMessage?
09/04/2008, 12h39
pgz

Re,

Citation:

tu penses que cela peut venir du nom de mes variables MonOutlook et MonMessage?

Non, je ne pense pas.

Regarde le message de Neupont, peut-être effectivement un pb d'installation.
C'est quelle ligne qui renvoie l'erreur?

Si l'erreur ne vient pas lors de l'instanciation de MonOutlook ni MonMessage, tu peux aussi ajouter l'instruction

Code:

MonMessage.BodyFormat = olFormatHTML

PGZ
09/04/2008, 12h48
kikilou

reponse plus claire desolé je débute osus le forum

J'ai l'impression que le fichier DAO360.dll est absent dans C:/windows/system32. (Mais present dans C:/Programs files /fichiers communs/Microsoft shared/ DAO)
Pour l'installer, puis je sans risque faire un copier coller ou ya t-il une procedure speciale?

Merci de ton aide

Arrrrrgh, stp Monsieur
Neupont j'ai encore besoin de toi...
je resume :

Dao360.dll installé sous C::Windows/system32... (jai fait un copier collé) OK
library DAO 360 ajouté dans les ref du projet ....OK
par desactivation du backup outlook, tu parle de l'archivage automatique?, si c'est le cas je l'ai desactivé et cela ne marche toujours pas
sinon comment faire pour le desactiver, Merci

peut tu m'aider

merci
09/04/2008, 23h38
AlainTech

La place de DAO360.dll est bien dans C:/Program Files/Fichiers Communs/Microsoft Shared/DAO
Inutile de la recopier.

Par contre, tu peux essayer un regsvr32 de cette dll.
10/04/2008, 09h10
ucfoutu

Bonjour,

Je n'arrive plus à retrouver où j'ai un jour pu lire que, dans certains cas, il fallait d'abord désenregistrer cette dll pui l'enregistrer à nouveau (mais je ne suis pas sûr de moi).

Si les autres tentatives n'aboutissaient pas, tenter cette manoeuvre qui ne risque de toutes façons pas de nuire :

1)

regsvr32 -u "c:\program files\common files\microsoft shared\dao\dao360.dll"

2)
regsvr32 "c:\program files\common files\microsoft shared\dao\dao360.dll"

en modifiant "common files" par "fichiers communs" au besoin (selon la version)

EDIT :
Ce n'était pas là que je l'avais lu, mais là aussi on parle de ce cas de figure :

http://allenbrowne.com/ser-38.html

En profiter pour tout lire...
10/04/2008, 15h08
kikilou

Merci a tous les deuxpour vos infos.

Je test cela demain matin, (reunion toutes la journée) et je vous tiens au courant.

Merci
@plouch
11/04/2008, 11h11
kikilou

Re bonjour a tous,

D'abord un grand merci pour votre aide.

Alors, en fait, je pense que vous aviez tous un peu raison, DAO mal installer ou mal reconnu.
En fait, les mises a jour automatique de mon pc etait bloqué par le serveur informatique. Apres debloquage et realisation des mise a jour tous fonctionne correctement.
Je pense que la mise a jour office SP1 a fait une grosse partie du boulot.
J'avais aussi deux mise a jour critique sur excel et une mise a jour des composant activeX pour windows.

Voila donc en resume il faut commencer par le debut, soit, de faire les mises à jour.

Merci encore pour votre aide