Dupliquer un fichier et l'envoyer via e-email

Re : Dupliquer un fichier et l'envoyer via e-email

Bonsoir à tous,

Code largement inspiré de celui de Ti sur veriti.net




Sub EnvoiMail()
Dim NF$, Wbk As Workbook

ActiveWorkbook.Save

On Error Resume Next
NF = "M:\Demande de congé du " & Format(Date, "ddmmyyyy") & ".xls"
'supprime les copies existantes
Kill NF
For Each Wbk In Workbooks
If LCase(Wbk.FullName) = LCase(NF) Then
Wbk.Close False
Exit For
End If
Next Wbk

'nettoyage de la feuille
With ActiveWorkbook
With .Worksheets(1)
.OLEObjects("CbMail").Delete
With .Parent.VBProject.VBComponents(.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With

.SaveAs NF
SendMail "Lenul@XLD.com", "Demande de congé"

.Close False
End With
Kill NF
End Sub