ActiveWorkbook

Bonjour tout le monde,

je vous contacte aujourd'hui parce que je souhaite joindre un fichier à un mail, ce qui ce fait très bien sauf que le fichier joint n'est pas le bon.

En effet, dans mon code j'ai demandé de traiter mes taches puis de joindre le fichier construit dans un mail que je pourrai envoyer par la suite. Au lieu de cela, le fichier non traité est joint alors que le fichier traité est bien ouvert.

le code dit ceci:

myItem.Attachments.Add ActiveWorkbook

myItem.Display

pourriez-vous m'aider?

Merci.

Bonjour,

pourriez-vous montrer votre code en entier, merci!

Bonjour SabV,

Certainement, et le voici:

Sub Envoi_Mail()

Dim ol As Object, myItem As Object

Set ol = CreateObject("outlook.application")

Set myItem = ol.CreateItem(olMailItem)

myItem.To = ""

myItem.Subject = "File_Name"

myItem.Body = "My Message."

myItem.Attachments.Add ActiveWorkbook.FullName

myItem.Dysplay

Set ol = Nothing

End Sub

merci.

re,

les classeurs ne sont pas défini,

par exemple:

Dim wk1 As Objet, wk2 As Objet
Set wk1 = ThisWorkbook  'classeur contement la macro
Set wk2 = Workbooks("MonClasseurÀenvoyer.xlsx")  'classeur à envoyer

et utiliser la variable wk2 pour l'envoie

myItem.Attachments.Add wk2.FullName

Merci pour ce code mais j'ai toujours l'ancien fichier qui est joint au mail sans les données.

re,

est ce que fichier à envoyer est déjà ouvert ?

oui, il est bien ouvert.