VBA : supprimer un classeur à sa fermeture

[dionys0s]

Bonjour le forum ^_^

Je cherche à supprimer (kill) un classeur lors de sa fermeture. Ca peut vous sembler tordu, mais ça ne l'est pas. Ce n'est pas un classeur temporaire (il est enregistré), et l'utilisateur qui va utiliser le fichier va le générer en pdf et l'enregistrer ailleurs. Il n'est donc plus utile et j'aimerais qu'il se supprime automatiquement du répertoire où il est enregistré. J'ai bien trouvé un topic à ce sujet sur XLD (lien) mais qui ne concerne qu'un fichier qui n'a pas été enregistré.

Avez-vous une idée de comment procéder ? Idéalement, j'imagine que ce code serait à intéger dans le ThisWorkbook beforeclose non ?

D'avance merci pour votre aide

 

[dionys0s]

Re : VBA : supprimer un classeur à sa fermeture

Re tout le monde
bonsoir sigismond

c'est redoutable ce fichier !! Et comment on fait pour se procurer le code ?
En revenche c'est curieux que le fichier de Staple ne marche pas pour toi. J'ai excel 2003 et il fonctionne au poil sur mon ordi.


Bon week end tout le monde (derechef)

 

[Softmama]

Re : VBA : supprimer un classeur à sa fermeture

Re,

Il contourne le problème en modifiant le mode d'ouverture du fichier : en le passant en lecture seule

Intéressant ça !

@Dyonisos : pour lire le fichier, Options Sécurité des macros moyenne ou élevée et ne pas les activer

 

[sigismond]

Re : VBA : supprimer un classeur à sa fermeture

re,

Dyonisos, le fait que le code suicide1 fonctionne chez toi m'a titillé.

J'ai réussi à le faire marcher en modifiant un paramètre de sécurité. il s'agit de :
Menu/Outils/Options/Sécurité/Sécurité des macros/Editeurs approuvés/Faire confiance au projet Visual Basic

Comment j'ai fait le lien entre Erreur 1004 et ça ? ben avec l'aide pardi !

Bon Week End

Sigismond

 

[Staple1600]

Re : VBA : supprimer un classeur à sa fermeture

Bonsoir à tous

Bonjour Staple, Softmama,
Re,

Chapeau bas, je crois que j'aurais mis un certain temps à faire ça

Les félicitations sont adressés à Masaru Kaji

Bonjour à tous,
...
J'ai essayé le code proposé par Stapple, chez moi sous 2003 il ne marche pas.
Je suis donc remonté aux sources pour faire une recherche sur Masaru Kaji(merci Stapple de nous faire partager tes bons liens).

L'honorable japonais nous propose une deuxième piste que je trouve d'une grande élégance :

Un harakiri par jour suffit
C'est pour cela que je n'avais mis qu'un seul exemple d'AutoTermination d'un workbook (comme disait Arnold avant qu'il soit Gouverneur ... )

PS: j'avais omis d'indiquer la manip relatée par Sigismond dans son message de 21h28

 

[sigismond]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour à tous, et à toi Staple et... désolé pour l'orthographe.

Sigismond.

 

[dionys0s]

Re : VBA : supprimer un classeur à sa fermeture

Re,


Intéressant ça !

@Dyonisos : pour lire le fichier, Options Sécurité des macros moyenne ou élevée et ne pas les activer

Bonjour tout le monde

Merci pour le tuyau Softmama ^^

 

[pedrag31]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour le fil, le forum,

Un seul mot à dire "Magnifique!"
Je patinais déjà depuis un moment sur le fichier qui s'autodétruit après fermeture.

Bonne journée

 

[tototiti2008]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour pedrag31, Bonjour à tous,

Comme quoi ce n'est pas mission impossible

 

[Usine à gaz]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour à toutes et à tous,

Bon sang de bon sang,
Redoutable et dangereux votre truc mais super quand on veut protéger "nos secrets de travail" dans certaines situations.
Bonne soirée à toutes et à tous,
Amicalement,
Lionel,

 

[Usine à gaz]

Re : VBA : supprimer un classeur à sa fermeture

LOL AU SECOURS,

Depuis que j'ai utilisé pour le tester votre Killer, j'ai un message qui s'affiche à chaque ouverture d'un classeur et mes macros ne s'activent plus.

Pourriez-vous m'aider à trouver ce qu'il faut modifier ?
Un grand Merci
Amicalement,
Lionel,

 

[dionys0s]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour arthour,

Aucune idée de ce qui aura pu occasionner ceci...

 

[Usine à gaz]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour DionysOs ... à toutes et à tous,

Merci de m'avoir répondu.
A force de "bricoler" .... le souci est résolu mais je ne sais pas pourquoi ? LOL
Bonne fin de journée,
Amicalement,
Lionel,

 

[Usine à gaz]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour Sigismond .... à toutes et à tous,

Cette macro est super.
Toutefois, j'aimerais pouvoir mettre un code qui lui indique une date d'exécution et je n'y arrive pas.

Private Sub Workbook_Open()
If "TODAY()=42286" Then
    'MsgBox ("ceci est un message qui ne laisse pas de trace")
    Call Suicide1
End If
End Sub

Pourriez-vous m'aider car ça beugue sur : If "TODAY()=42286" Then
Un grand merci,
Amicalement,
Lionel,

 

[dionys0s]

Re : VBA : supprimer un classeur à sa fermeture

Bonjour tout le monde,

Suggestion non testée :

Private Sub Workbook_Open()
If Date = DateSerial(2015, 10, 8) Then
    'MsgBox ("ceci est un message qui ne laisse pas de trace")
    Call Suicide1
End If
End Sub

 

[dionys0s]

Re : VBA : supprimer un classeur à sa fermeture

Re,

Autre suggestion non testée :

Private Sub Workbook_Open()
If CLng(Date) = 42285 Then
    'MsgBox ("ceci est un message qui ne laisse pas de trace")
    Call Suicide1
End If
End Sub