problème sur un code pour supprimer un fichier
Bonsoir le forum
J'ai adapté ce code et il fonctionne bien , je voudrais supprimer le fichier creer précèdemment .
J'ai donc rajouter une ligne avec KILL mais il bloque avec le message suivant
Erreur d'éxècution 70 permission refusé , je pensais que cela était dut au fait que je souhaite supprimer un fichier sur le serveur mais ce n'est pas le cas car j'ai le même problème sur mon C:
Pouvez vous m'aider SVP
Merci d'avance :ccool:
Bricoltou
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| Sub MailCarburant()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim répertoireappli As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
' Workbooks.Open Filename:= _
' "C:\Documents and Settings\Desktop\Camionnage\carburant.xls"
Workbooks.Open Filename:="K:\Pilotage\Camionnage\Carburant.xls"
ActiveSheet.Unprotect Password:="Carburant"
répertoireappli = ActiveWorkbook.Path
'copie les feuilles à envoyer
Sheets(Array("PRESENTATION", "Recapitulatif")).Copy 'Avec le Array pour sélectionner plusieurs feuilles
'crée le fichier
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireappli & "\Suivi_Contrôle_Carburant.xls"
PathName = répertoireappli & "\Suivi_Contrôle_Carburant.xls"
With Olmail
.To = "xxxxxxxxxxxxxxxx"
'.CC = "xxxxxxxxxxxxxxxx"
.Subject = "Contrôle Carburant"
.body = "Suvi Consomation à afficher"
.Attachments.Add PathName
.Send 'Ou Display voir le message avant de l'envoyer
End With
Kill "K:\Pilotage\Camionnage\Suivi_Contrôle_Carburant.xls" 'Chemin à adapter"
' Kill ("C:\Documents and Settings\Desktop\Camionnage\Suivi_Contrôle_Carburant.xls") 'Chemin à adapter"
ActiveSheet.Protect Password:="Carburant"
ActiveWindow.Close
End Sub |
