Suppression d'un fichier sauvegardé

[vallesm77]

Bonjour,

Ci-dessous une macro qui me permet d'enregistrer mon classeur excel et de l'envoyer par mail (Merci d'ailleur au autres post qui m'ont permis de le réaliser)

Private Sub CommandButton4_Click()
Dim MailObj As Object
Set MailObj = CreateObject("outlook.Application")

ActiveWorkbook.SaveAs Filename:="C:\temp\Demande_Supervision.xls"

Set ObjNewMail = MailObj.CreateItem(olMailItem)

With ObjNewMail
.Recipients.Add "saisirMail"
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Subject = "Demande de supervision"
.Attachments.Add ("C:\temp\Demande_Supervision.xls")
.Body = "Bonjour, ci joint une copie de demande de supervision par les applications OpManager et AppManager"
End With

ObjNewMail.Display

End Sub

Comment fait pour qu'après la création du mail, le fichier dans c:\temp soit supprimé ?

Merci d'avance

 

[tototiti2008]

Re : Suppression d'un fichier sauvegardé

Bonjour,

Kill "C:\temp\Demande_Supervision.xls"

 

[vallesm77]

Re : Suppression d'un fichier sauvegardé

Oki Merci,

Par contre j'ai un soucis car vu que j'enregistre le fichier avant, il reste ouvert et donc la commande kill ne fonctionne.

Y a t-il un autre moyen du genre, fermer le fichier et supprimer ensuite ?

Ou alors supprimer le fichier automatiquement lorsque l'on ferme le fichier ?

Merci d'avance

 

[tototiti2008]

Re : Suppression d'un fichier sauvegardé

Je te propose :
Workbooks("Demande_Supervision.xls").close False
Kill "C:\temp\Demande_Supervision.xls"

 

[vallesm77]

Re : Suppression d'un fichier sauvegardé

Dit comme ca ! c'est tellement simple !

 

[tototiti2008]

Re : Suppression d'un fichier sauvegardé

Oups... une remarque... Il faut évidement que ton code VBA ne se trouve pas dans le classeur Demande_Supervision.xls, car une fois fermé, le code ne s'execute plus (plutôt logique).