Fonction Kill qui intégre un if

[ipotez]

Salut
J'ai dans mon code before close une ligne qui supprime un fichier en sortant
Mon problème est d'y intégrer la possibilité que le fichier n'existe pas.
Si le fichier existe elle le vire sans problème par contre elle plante si le fichier n'existe pas...

Merci pour votre coup de main

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Control Toolbox").Visible = True
    Application.CommandBars("Drawing").Visible = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayAlerts = True
    ThisWorkbook.Saved = True
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "
     Kill "C:\CLASSEURS\" & Range("i2").Value & ".xls"

 

[Dranreb]

Re : Fonction Kill qui intégre un if

Bonjour
Mettre

On Error Resume Next

juste avant le Kill et

On Error Goto 0

juste après
Il n'y a vraiment pas à chercher midi à 14 h car le resultat du Kill qui plante est le même que celui du Kill qui plante pas !

 

[Pierrot93]

Re : Fonction Kill qui intégre un if

Bonjour,

essaye ceci :

If Dir("C:\CLASSEURS\" & Range("i2").Value & ".xls", vbDirectory) <> "" Then _
    Kill "C:\CLASSEURS\" & Range("i2").Value & ".xls"

bon après midi
@+

 

[ipotez]

Re : Fonction Kill qui intégre un if

Wahoo, mega rapides messieurs

Merci beaucoup, problème résolu.
Bonne journée