Option Explicit
Sub Envoi_Mail()
Dim Chemin$, Fichier$, FichWd$, Nom$, Mail$, Wks As Worksheet
Dim olApp As Object, olMail As Object, StrBody$
Nom = Range("e4") 'De quelle feuille???
Chemin = "W:\COMMUN\BUG WONETT\Fiche BUG\"
FichWd = Chemin & Nom & ".doc"
Set Wks = Sheets("Fiche")
Wks.Activate
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=Chemin & Nom & ".xls", FileFormat:=xlExcel8
.Close True
End With
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
StrBody = "Bonjour Madame," & vbCrLf & vbCrLf & "Recevez les nouveaux documents cités en Objet."
Fichier = Chemin & Nom & ".xls"
With olMail
.To = "toto@mincealors.quack"
.Subject = "Vos nouveaux fichiers"
.Body = StrBody
.Attachments.Add Fichier
.Attachments.Add FichWd
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub