Eliminer Classeur courant

Bonjour à tous,

On me pose une colle:

Un collègue dans son travail télécharge souvent des fichiers excel de différentes sources de données. Il n'en a besoin que pour extraire certaines données et voudrait avoir une macro présente dans tous ses classeurs qui lui permette de supprimer en un click le fichier.

Or si le classeur est ouvert on ne peut pas le supprimer, quelqu'un aurait une idée?

Bien à vous,

Engue

Bonjour,

une solution via une macro insérée dans les macros personnelles.

Public Sub killmywb()

Set wb = ActiveWorkbook 'fait l'hypothèse que le fichier actif est celui qu'il faut supprimer
fn = wb.Path & "\" & wb.Name
wb.Saved = True
wb.Close
Kill fn

End Sub

Bonjour Sulfurique,

Merci pour ta réponse, c'est ce que je voulais

J'ai rajouté un

 if workbooks.count = 1 then application.quit

Pour ne pas avoir l'application qui reste ouverte sans aucun wb (le 1 est le classeur macro persos)

Merci à toi!

Rechercher des sujets similaires à "eliminer classeur courant"