Le forum, bil boll
J'ai fait il y a peu un fichier pour la maintenance, si tu es intéressé je peux te l'envoyer,tu devrais facilement adapter ce bout de code.
à coller dans un module, en supposant que le destinataire et la copie soit toujours les mêmes.
vPath = ActiveWorkbook.Path
vFile = ActiveWorkbook.Name
'l'objet du mail
vSubject = Range('a2')
'le destinataire
vTo = ' adresse mail '
vMessage = ' ''
vFileToAttach = vPath & '\\' & vFile
vFileDesc = Range('e4') & ' ' & Range('f4')
'Ouvre un nouveau message vide via Outlook
Set myol = New Outlook.Application
Set myitem = myol.CreateItem(olMailItem)
myitem.To = vTo
'copie du mail
myitem.CC = ' adresse mail'
myitem.Subject = vSubject
myitem.Body = vMessage
Set myAttachments = myitem.Attachments
If vFileToAttach <> '' Then
myAttachments.Add vFileToAttach, olByValue, , vFileDesc
End If
' demande si le mail doit être envoyé
'myitem.Display ':- if you want outlook to display the mail message for you to check/add to before you send
'or use
'envoie le mail directement
myitem.Send ':-if you just want your application to send email automatically.
End Sub