Supprimer automatiquement un fichier

[Albert]

Bonjour,
Existe t-il une fonction dans excel qui permette de supprimer automatiquement un fichier à une date déterminée ? Ou alors d'effacer le contenu du fichier ?
Merci d'avance !

 

[Vériland]

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

 

[Vériland]

juste un complément d'explication, cette ensemble fera en sorte de supprimer le fichier "classeur1.xls" puis de le placer dans la corbeille...

fichier présent dans "C:\windows\bureau\Classeur1.xls" pour cet l'exemple...