Supprimer le classeur actif

[tchangy71]

Bonjour,

je voulais savoir si il est possible de supprimer, par macro, le classeur actif contenant cette même macro ??

J'ai essayé ThisWorkbook.delete (et Kill) mais cela ne fonctionne pas !!

merci,
Philippe

 

[mutzik]

Re : Supprimer le classeur actif

Bonjour,

Ce n'est pas possible, qu'un fichier s'autodétruise
un fichier peut en supprimer un autre, oui, mais pas lui-même (sauf erreur de ma part)

 

[Sylvain]

Re : Supprimer le classeur actif

Bonjour,

Est-il possible de savoir pourquoi tu veux faire cela, il y a peut-être une autre manière de répondre à ta question ?

 

[job75]

Re : Supprimer le classeur actif

Bonsoir tchangy71, mutzik, Sylvain,

Voir sur ce lien le post #4 et la macro Suicide de Frédéric Sigonneau :

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

A+

 

[Risleure]

Re : Supprimer le classeur actif

Bonsoir tchangy71, mutzik, Sylvain, Job75

Un code que j'avais récupéré auprès MVP XL mais jamais testé.
Si j'ai bien compris, le code recherche le nom du classeur qui est en cours de fermeture, le détruit
et ferme le dit classeur en considérant que la sauvegarde a déjà été faite.

Mais c'est un suicide !!!

Sub Autolyse()
'Chip Pearson & Bob Umlas, mpep
'à appeler dans l'événement BeforeClose du classeur à détruire
'peut aussi être appelé par une procédure avec OnTime pour une
'destruction à une date/heure précise
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
    Next Ndx
    .ChangeFileAccess Mode:=xlReadOnly
    Kill .FullName
    .Close SaveChanges:=False
  End With
End Sub