Autodestruction macro

[AlainK]

Bonjour, dans le cadre de mon entreprise, j'utilises des fichiers excel avec des macro. Je voudrais pouvoir utiliser ce qui se trouve ci-dessous (trouvé sur internet) pour autodétruire certain fichier excel à partir d'une certaine date.

J'ai testé la macro de Chip Pearson avec succés. Mais, je ne sais pas comment lui ajouter la partie juste ci-dessous.
J'ai l'impression qu'il y a des erreurs. (mais bon je n'ai pas trop d'experience).
Pourriez-vous m'aider.
Merci
'-------------------------------
Private Sub Workbook_Open()
' 15 juin 2008 -> le fichier s'auto détruit
'Attention ça marche vraiment -> sauvegarde avant de tester
If Date > DateSerial(2008, 6, 15) Then
Suicide
Else 'Pas nécessaire à toi de décider
MsgBox "Bienvenue à toi"
End If
End Sub
'-------------------------------



Dans un module standard ceci :
'-------------------------------------
'Ci-dessous une sub de Chip Pearson qui le fait (attention
'elle marche vraiment !) il ne te reste plus qu'à la lancer
'le jour désiré ...

Sub Suicide()
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If

 

[Staple1600]

Re : Autodestruction macro

Bonjour Alaink, le fil, le forum


Utilises le moteur de recherche du forum

avec le mot-clé suivant: suicide

et dans la liste affichée de cette recherche, cliques par exemple sur celle-ci 😉

 

[AlainK]

Re : Autodestruction macro

Merci, Staple 1600.
j'ai fouillé et effectivement, j'ai trouvé la réponse.