Lone-wolf
XLDnaute Barbatruc
Bonsoir à tous
Avec la macro ci-dessous, je n'arrive plus à supprimer le fichier. Pourriez-vous me dire ce qui cloche?
Avec la macro ci-dessous, je n'arrive plus à supprimer le fichier. Pourriez-vous me dire ce qui cloche?
VB:
Option Explicit
Sub Envoi_Mail()
Dim Chemin, Nom As String, Rep As String
Dim OlApp As Object
Dim OlMail
[A1:I23].Copy
Chemin = ThisWorkbook.Path & "\Fichiers\"
Nom = "Notes élèves.xls"
ActiveSheet.SaveAs Chemin & Nom, xlExcel8, False
Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(0)
With OlMail
.To = "toto@yahoo.fr"
.Subject = "Rapport Élèves"
.Body = "Bonjour"
.Attachments.Add Chemin & Nom
.Display
End With
ActiveWorkbook.Save
Application.Quit
On Error Resume Next
Application.DisplayAlerts = False
Rep = Dir(Chemin & "*.*")
Do While Rep <> ""
Kill Chemin & Rep
Rep = Dir
Loop
OlApp.Quit
Set OlMail = Nothing
Set OlApp = Nothing
End Sub