Destruction du fichier au jour J

[Sylvain]

Bonjour,

Est il possible qu'un fichier excel se détruise à une date programmé. En d'autre terme, on peut utiliser et lire le fichier jusqu'à une date prévue .

Merci du conseil

Sylvain

 

[Robert]

Bonjour Sylvain,
A la date donnée tu Clear le contenu des feuilles ou tu les supprimes et tu sauvegarde le classeur...
@+Robert

 

[Sylvain]

Attention la destruction se ferait par macro, ce serait une macro de destruction qui se déclencherait automatiquement à une date prévue (mis dans le code)

 

[Michel_M]

Bonsoir,

Ton truc, ca s'appelle VIRUS


Michel

 

[Temjeh]

Tres bon Michel !!!

Temjeh

 

[nicolas]

Bonjour,

Je ne connais pas la solution mais Sylvain ne souhaitait pas je pense créer de virus mais uniquement supprimer un fichier qui n'aurait plus aucune utilité à partir d'une date donnée.

Quelle est la solution?

 

[Sylvain]

Bonjour,

Merci Nicolas pour ton soutient. En fait ce n'est pas du tout un virus. Explication : j'ai créer une application intéressante sous excel : un outil de simulation en production porcine. J'aimerais envoyer des versions de démonstrations de mon application mais après une semaine je voudrais bloquer l'ouverture : voir supprimer le contenu pour plus laisser de trace et tout cela par une macro qui se déclencherait automatiquement à une date qui je fixe dans le code.
Désolé pour la frayeure !

Si vous avez des idées !

Sylvain

 

[serge (pas le même)]

Bonjour Sylvain et le forum.

J'avais bien compris ta démarche.

http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/AutoDestructionClasseur.txt

Peut-être à cette adresse un début de solution. A développer avec les "cadors" du forum... dont je ne suis pas. Bon courage et bonne journée à tous.
Serge.

 

[serge (pas le même)]

http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/AutoDestructionClasseur.txt

Bonjour Sylvain et le forum.
Peut-être à l'adresse ci-dessus le point de départ de ta macro.
Bon courage et bonne journée à tous

 

[serge (pas le même)]

Oups!...
excusez le bis, j'ai quelques soucis sur ma ligne...
Serge.

 

[Temjeh]

J'ai ptêtre un début de solution

Sub Macro1()
If Range("B1").Value >= Range("C1").Value Then
Columns("A:A").Select
Selection.ClearContents
Range("A1").Select
End If
End Sub

En C1 tu met la date:AUJOURDHUI()
En B1 tu met la date de suppression
A la date prévue si tu active la macro il delete col "A" ou tout autre suite


Sub Macro1()
If Range("B1").Value >= Range("C1").Value Then
Columns("A:A").Select
ActiveWorkbook.Save
UserForm1.Hide
ActiveWorkbook.Close
End If
End Sub

Temjeh

je suis seulement débutant mais curieux

Temjeh

A++

 

[Eric C]

Bonjour le forum
Bonjour les intervenants

Ceci pour répondre à ta question mais à finir de developper pour effacer les données et sauvegarder sans demande aucune...
Tout est invisible depuis la feuille d'Excel et fonctionne à l'ouverture du classeur.

Private Sub Workbook_Open()
Dim mydate
Dim password As String
mydate = Date
If mydate < #7/31/04# Then 'Inférieure ou égale au 31/07

Load UserForm1 'Ton USF
UserForm1.Show

End

ElseIf mydate >= #7/31/04# Then 'Date dépassée ==> demande de password sans MSGBOX
password = InputBox(" La date d'échéance est atteinte" & Chr$(13) & _
"Des modifications ont peut être été apportées." & Chr$(13) & _
"Veuillez recopier le fichier depuis mon bureau" & Chr$(13) & _
" pour remplacer le présent", "Date d'expiration", "*")
End If
If password = "123" Then
End
ElseIf password <> "123" Then

MsgBox "Veuillez reprendre le fichier depuis le disque dur de mon bureau", vbOKOnly, "Mise à Jour"
Close

Ici ton code pour effacer tout ton document avec une selectin.ClearContents
puis une sauvegarde sans DEMANDE du fichier.

End If

End Sub


Il y a encore mieux avec TextBox & caractères "**" mais je n'ai pas le temps de développer.

Je vais déjeûner - Bon appétit à toutes & à tous
@ ++ Eric C

 

[Sylvain]

merci pour tout je devrais me débrouiller !

encore merci

bonne journée à tous

sylvain