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 : Sélectionner tout - Visualiser dans une fenêtre à part
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