Fonction Kill qui intégre un if

ipotez · 1 Avril 2011

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

Code:

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 · 1 Avril 2011

Re : Fonction Kill qui intégre un if

Bonjour
Mettre

VB:

On Error Resume Next

juste avant le Kill et

VB:

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 · 1 Avril 2011

Re : Fonction Kill qui intégre un if

Bonjour,

essaye ceci :

Code:

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

bon après midi
@+

ipotez · 1 Avril 2011

Re : Fonction Kill qui intégre un if

Wahoo, mega rapides messieurs

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

Fonction Kill qui intégre un if

ipotez

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

ipotez

XLDnaute Occasionnel

Discussions similaires