Objet requis sur la commande sendmail

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:

---

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

Salut

Code:

---

ActiveWorbook.Close= False

---

doit etre corrige en

Code:

---

ActiveWorbook.Close False

---

Salut Jean-Philippe,

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

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

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.

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:

---

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

---

Idem, la macro s'exécute nikel mais ce message d'erreur parasite la procédure.

J'ai changé les noms, rien n'y fait. Le débogage me place sur le Sub EnvoiPage() maintenant.

Ok,

as-tu une ligne particulière mise en jaune ou un pointeur qui se met sur une ligne en particulier ?

Non, le pointeur reste sur la première ligne et surligne Sub Envoipage().
Merci de prendre du temps pour ce léger soucis...