Discussion :

[Markal]

Bonjour à tous,

J'ai monté une macro très simple pour envoyer une feuille de classeur en pièce jointe via outlook.
Le mail est bien envoyé, j'ai bien la copie de la feuille en accusé réception, mais j'ai toujours le message d'erreur : "Objet requis : erreur 424".

Voici la 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
Sub EnvoiPage()
Dim Destination As String
Dim Subject As String
 
 
 
Destination = "XXX@XXX.fr"
Subject = "Bon de commande"
 
 
rep = MsgBox("Valider l'envoi du bon de commande ?", vbQuestion + vbYesNo,"T'es sur de toi ?" )
 
If rep = 6 Then
 
 
ThisWorkbook.Sheets("Sheets!1").Copy
ActiveWorkbook.SendMail Destination, Subject
ActiveWorbook.Close= False
 
 
If rep = 7 Then MsgBox ("Révise ta copie alors !!")
 
End If
 
 
End Sub

J'ai beau essayer ce que je vois sur les autres discussions, mais cela ne résolue pas mon problème.

Merci par avance te bonne journée

[Jean-Philippe André]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorbook.Close= False

doit etre corrige en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorbook.Close False

[Markal]

Salut Jean-Philippe,

Merci pour cette réponse, qui malheureusement ne corrige pas le message d'erreur...

[Jean-Philippe André]

A quelle ligne l'erreur en question surgit-elle ?

[Markal]

L'erreur apparaît quand je définis "destination="XXX@XXX.fr".
c'est plus un avertissement, car la macro s'exécute le fichier est bien envoyé et j'ai bien une copie de la feuille qui se génère, mais le message d'erreur apparaît.

[Jean-Philippe André]

OK,

je pencherai pour un problème de mot clé, en effet Destination est un mot clé tout comme Subject.

Peux tu essayer de voir en remplacant ton code avec :

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
Sub EnvoiPage()
Dim strDestination As String
Dim strSubject As String
 
 
 
strDestination = "XXX@XXX.fr"
strSubject = "Bon de commande"
 
 
rep = MsgBox("Valider l'envoi du bon de commande ?", vbQuestion + vbYesNo,"T'es sur de toi ?" )
 
If rep = 6 Then
 
 
ThisWorkbook.Sheets("Sheets!1").Copy
ActiveWorkbook.SendMail strDestination, strSubject
ActiveWorbook.Close False
 
 
ElseIf rep = 7 Then 
MsgBox ("Révise ta copie alors !!") 
End If
 
 
End Sub