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
Bricoltou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager