Code VBA pour supprimer définitivement un fichier ?

Bonjour,

J’ai placé la procédure ci-dessous dans un fichier nommé « Document final ».

Sub Importer_Données ()

Workbooks.Open Filename:="U:\Document initial.xls"

Sheets("Données").Select

Sheets("Données").Move Before:=Workbooks( _

"Document final.xls").Sheets(1)

End Sub

J’aimerais encore qu’avant la fin de cette procédure - lorsque la feuille « Données » du fichier « Document initial » a été déplacée - le fichier « Document initial » soit DEFINITIVEMENT SUPPRIME.

Comment puis-je compléter mon code ?

Avec mes cordiales salutations.

Salut Yvouille,

Pour supprimer un fichier:

Sub test()
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("C:\Documents and Settings\FR018661\Desktop\Doc1.doc")
End Sub

A te lire,

Souri84

Ca marche parfaitement !

Merci infiniment Souri et bonne fin de semaine.