VBA - Code pour de supprimer un fichier

Bonjour,

Avec l’aide du Forum, j’avais mis en place le code ci-dessous. Comme la partie qui permettait de supprimer un fichier devenu inutile - voir les commentaires dans le code - fonctionnait parfaitement, j’avais mis ces deux lignes quelques temps sous la forme de commentaires, afin de pouvoir faire d’autres essais sans que ce fichier soit à créer à nouveau à chaque fois.

Mais maintenant que je voudrais à nouveau réactiver ces deux lignes, ça ne fonctionne plus.

Savez-vous alors si j’ai effacé une autre partie du code qui serait nécessaire ?

Sub Importer_RepListeImpot ()

' Ouvre le classeur "RepListeImpot"
' et déplace la feuille nécessaire puis supprime le fichier "RepListeImpot"

        Application.ScreenUpdating = False

Workbooks.Open Filename:="U:\RepListeImpot.xls"

        Sheets("RepListeQuellensteuer").Move Before:=Workbooks("aaa_QUELLENSTEUER.xls").Sheets(1)

‘ Ce code permet de supprimer le fichier devenu inutile
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.DeleteFile ("U:\RepListeImpot.xls")

        Range("A:A,B:B,F:F").Delete Shift:=xlToLeft
        Range("I1") = "Fin des prestations"
End Sub

Avec mes cordiales salutations.

Salut Yvouille,

Essaies en remplaçant:

        Set objFSO = CreateObject("Scripting.FileSystemObject") 
        objFSO.DeleteFile ("U:\RepListeImpot.xls")

par

kill "U:\RepListeImpot.xls"

ATTENTION: SUPPRIME DEFINIVITEMENT LE FICHIER

A te lire,

Souri84

Souri84,

Ton code fonctionne à merveille. C'est exactement ce que je cherchais et en plus, c'est plus simple à utiliser que la première proposition que j'avais reçue.

Merci beaucoup et bonne journée.