PROB: Envoi de fichier par mail
Bonjour,
J'ai créé une macro très simple me permettant d'envoyer une liste de fourniture par mail.
Lorsque j'ajoute la quantité de fourniture à envoyer (10) et clique sur le bouton, la macro envoie le fichier vierge...
Lorsque je modifie la quantité de fourniture à envoyer (20) et clique sur le bouton, la macro envoie le fichier d'avant (avec la quantité à 10)...
Quelqu'un peut-il m'aider pour que cela envoie le fichier actuel ?
Merci beaucoup !
Sub Mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "xxx@xx.xx"
.CC = "xxx@xx.xx"
.BCC = ""
.Subject = "XXX " & Date & " " & Time
.Body = "XXX"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bonjour,
sans voir le fichier je ne peut que faire une supposition,
enregistrer le fichier
entre l'action d'ajouter la quantité de fourniture à envoyer
et l'envoi du mail