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 :
Erreur d'execution 429 : Un composant active X ne peut pas créer d'objet.
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")
Please un enorme help, car je dois presente ce fichier demain a mon boss!!!
Merci d'avance
Partager