Discussion :

[Bricoltou]

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

[Invité]

Bonjour

Je pense (sans garantie), c'est que ton fichier Suivi_Contrôle_Carburant.xls doit être encore ouvert.

Philippe

[Bricoltou]

Bonsoir le Forum,Philippe

Exact aprés fermeture du fichier , le code fonctionne

Merci pour ton aide

Cordialement

Bricoltou