Bonjour,

J'ai un problème dans la syntaxe d'un macro qui me permet d'envoyer une feuille Excel en mail via Outlook.

Le message part bien mais l'objet reste vide ou affiche des caractères sibyllins.
Voici le texte de 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
Sub SendMail()
 
' Copy the sheet(1)
ActiveSheet.Copy
 
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array(ActiveSheet.Range("adresse_mail").Value), Subject:=ActiveSheet.Range("chantier").Value & " code " & ActiveSheet.Range("A3").Value, _
ReturnReceipt:=False 'True
.Close SaveChanges:=False
End With
 
End Sub
Si quelqu'un a une solution, je suis preneur.
Merci, bonne journée.
Cordialement