Suppresion d'un fichier vers la corbeille

Bonjour à tous !!

Je voudrais savoir quel ligne(s) de code est à utiliser pour supprimer un fichier et l'envoyer dans la corbeille, je connais la fonction kill mais elle supprime DÉFINITIVEMENT le fichier... ce que je ne veux pas

Merci à vous !

Bonjour,

un code de chip Pearson, éminent excellien

Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Sub test()
RecycleFile "D:\Données\essai.xls"
End Sub

Sub RecycleFile(sFile As String)
'Chip Pearson, mpep
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFileName As String

With FileOperation
.wFunc = FO_DELETE
.pFrom = sFile
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(FileOperation)
End Sub

Le fichier à mettre vers la corbeille : ("D:\Données\essai.xls")

Je ne sais comment te remercier

J'avais cherché la solution sur le net avec plein d'autres forum mais rien ne fonctionnait...

Espérons que cette macro marche bien sous 97

Edit : Cela fonctionne aussi sous 97

Merci Amadéus,

Je l'avais effectivement vu, mais il complique beaucoup ma ligne de code déjà existante.