Bonsoir Albert et le Forum,
Bon je vais tâcher de récupérer ma Lien supprimé du Lundi en te donnant cette réponse...lol
Tout d'abord voici le code complet que tu vas placer dans un module...la macro supprimer enclenchera ainsi le processus...
'============================================
Option Explicit
' Supprimer Un fichier
' et l'envoyer dans la corbeille
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
' mettre dans la corbeille
Sub Corbeille(sFile As String)
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
' Donne ici le chemin du fichier à supprimer
Sub Supprimer()
Corbeille "C:\windows\bureau\Classeur1.xls"
End Sub
'============================================
ensuite pour que cela puisse s'enclencher à une date déterminée tu places ce code dans ThisWorbook :
'============================================
Private Sub Workbook_Open()
Dim MaDate
MaDate = Range("a1").Value
If MaDate = "28/03/2003" Then
Call Supprimer
End If
End Sub
'============================================
par contre dans la cellule A1 tu places la date choisie...exemple 28/03/2003...ainsi à l'ouverture du fichier, si MaDate correspond à A1 alors on active la macro Supprimer...
A+ Vériland
