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?
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