With oMail
[SIZE="6"][B].[/B][/SIZE]Subject = "test d'envoi de mail via Excel"
[SIZE="6"][B].[/B][/SIZE]body = "Ceci est le corp d'un message destiné à tester l'execution d'une macro permettant l'envoi d'un mail automatique avec une pièces jointe au mail" _
& Chr(18) & "Cordialement" & Chr(12)
[SIZE="6"][B].[/B][/SIZE]Bodyformat = olformathtml
[SIZE="6"][B].[/B][/SIZE]Recipients.Add ("olivier gan")
[SIZE="6"][B].[/B][/SIZE]Recipients.Add ("Tommy gan")
[SIZE="6"][B].[/B][/SIZE]Attachement.Add ThisWorkbook.Path
[SIZE="6"][B].[/B][/SIZE]Send