Bonjour à toutes et à tous,
J'ai monté la macro ci-dessus pour envoyer un fichier Excel via la commande sendmail.
A chaque envoi, ce message apparaît : "Oblet requis".

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
Sub EnvoiPage()
Dim Adre As String
Dim Suje As String
 
Adre = "U02-BALosce33@cnfpt.fr"
Suje = "Bon de commande"
 
rep = MsgBox("Valider l'envoi du bon de commande ?", vbQuestion + vbYesNo, "Envoi du bon de commande vers U02-BALosce33")
 
If rep = 6 Then
 
ThisWorkbook.Sheets("BCF").Copy
ActiveWorkbook.SendMail Adre, Suje
ActiveWorbook.Close False
 
If rep = 7 Then MsgBox ("Révise ta copie alors !!")
 
 Application.DisplayAlerts = False
 
End If
 
 
End Sub
Ce n'est pas bloquant, le fichier par quand même, mais le fait de voir un message d'erreur apparaître à chaque fois rend le process un peu moins clean.

Merci par avance pour vos conseil !