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