Sub Generation_mail_BIS()Dim nom_fichier$, m As Worksheet
Application.ScreenUpdating = False
'Effacement et création de la feuille envoi pour repartir de 0
Application.DisplayAlerts = False
Sheets("ENVOI").Delete
Application.DisplayAlerts = True
Sheets.Add.Name = "ENVOI"
'Copie de la feuille recap mais pas les formules
Sheets("RECAP").Range("4:200").Copy
With Sheets("ENVOI").Range("a1")
.PasteSpecial -4163: .PasteSpecial 8: .PasteSpecial Paste:=-4122
.Application.CutCopyMode = False
End With
'sauvegarde de la feuille Envoi
nom_fichier = ActiveWorkbook.Path & "\" & Sheets("ENVOI").Range("B1").Text & ".xlsx"
'ci-dessous nomfichier sans espaces
'nom_fichier = ActiveWorkbook.Path & "\" & Replace(Sheets("ENVOI").Range("B1").Text, Chr(32), vbNullString) & ".xlsx"
Sheets("ENVOI").Copy
With ActiveWorkbook
.SaveAs nom_fichier, 51
.Close False
End With
'Préparation du mail
Set m = Sheets("MAIL")
With CreateObject("outlook.application").CreateItem(0)
.to = m.[c1].Text: .cc = m.[c3].Text
.Subject = m.[c5].Text
.Body = m.[c7].Text
.Add nom_fichier
.Display
End With
Application.ScreenUpdating = True
End Sub