Compte à rebour avant destruction de fichier!!

[EXCELERATOR]

Hello tout le monde !

Nouveau défie :

Je voudrais une macro cachée qui donne une durée de vie à un programme!

Un peu comme dans mission impossible.

Ce fichier s'auto-détruira dans 1 min...

Pas facile? Normal c'est une mission impossible!!

Bonne chance JIM !

 

[job75]

Re : Compte à rebour avant destruction de fichier!!

Bonjour EXCELERATOR,

Avec la macro dans le fichier à détruire, je ne pense pas que ce soit possible (mais je n'ai jamais essayé).

Par contre on peut créer un fichier Terminator.xls qui s'ouvrirait à l'heure dite grâce au Planificateur de tâches de Windows.

Sa macro Workbook_Open exécuterait une instruction Kill.

A+

 

[EXCELERATOR]

Re : Compte à rebour avant destruction de fichier!!

Salut job75,

Si c'est pas possible de détruire le fichier,peut-être arriverais-tu à créer une macro qui efface les données après un compte à rebours ?

Merci

 

[job75]

Re : Compte à rebour avant destruction de fichier!!

Re,

Ben oui EXCELERATOR, suffit de différer l'exécution de l'effacement par Application.OnTime.

Tu dois savoir faire ça, sinon plein d'exemples sur le forum.

A+

 

[GIBI]

Re : Compte à rebour avant destruction de fichier!!

bonjour,

tu crées les procédures suivantes

Sub A_Test()
'Test activité toutes les Cst_Interval
Application.OnTime Now + TimeSerial(0, 1, 0), "A_Terminer"
End Sub

Sub terminer()
ThisWorkbook.Close SaveChanges:=False
End Sub


tu appelles A_Test à l'ouverture du classeur

Private Sub Workbook_Open()
A_Test
End Sub

GIBI

 

[EXCELERATOR]

Re : Compte à rebour avant destruction de fichier!!

Merci les copains

 

[job75]

Re : Compte à rebour avant destruction de fichier!!

Bonjour à tous,

Je découvre sur ce fil la macro de Frédéric Sigonneau qui permet à un fichier de s'auto-détruire :

https://www.excel-downloads.com/thr...ement-selon-le-nom-dune-cellule-excel.112530/

A+