Sub MacroMail()
'Autant prendre de bonnes habitudes : en VBA, on déclare toujours les variables utilisées !
Dim AccuseReception As Boolean
Dim Sujet As String
'***********************************************************************************
'***********************************************************************************
Dim appOutlook As Object, message As Object, MaPJ As Object
Dim myRecipient As Object, email As String
'************************************************************************************
'************************************************************************************
Sheets("FICHE COMMUNICATION").Select
Sheets("FICHE COMMUNICATION").Copy Before:=Sheets(8)
Range("A1:AA44").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Select
Sheets("FICHE COMMUNICATION (2)").Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
'************************************************************************************
'************************************************************************************
Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)
'adresse du destinataire à modifier
email = "Emaildudestinataire@yahoo.fr"
Set MaPJ = message.Attachments
'joint le classeur où se trouve la macro
'pour un autre classeur, indiquer le chemin complet.
MaPJ.Add ThisWorkbook.FullName
With message
.ReadReceiptRequested = True
.Subject = "Demande de communication de boîte archives auprès ADLA"
.Body = "Bonjour," & vbLf & vbLf & "Penser à aller sur ce site : " & vbLf _
& "http://www.excel-downloads.com/forum/newthread.php?do=newthread&f=7" & vbLf _
& "afin de remplir le formulaire de demande de recherche administrative." & vbCr & _
"Cordialement," & vbCr & vbCr & _
"Brigitte."
.Recipients.Add (email)
.Send
End With
'************************************************************************************
'************************************************************************************
ActiveWorkbook.Close False
End Sub