Bonsoir,
voilà une procedure toute simple que j'utilise. Or celle ci qui fonctionnait correctement sous WinXP et Excel 2007 ne semble plus fonctionner suite à ma migration sur Windows 7 et Excel 2010.
Je reçois un message d'erreur "acces non autorisé" comme si le fichier était ouvert (ce qui n'est pas le cas), et O miracle la même procedure fonctionne à merveille si je l'execure en mode pas à pas... Je vous remercie par avance de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Public Sub killkill() If Dir("c:\temp\temp\*.zip") <> "" Then Kill "c:\temp\temp\*.zip" If Dir("c:\temp\temp\*.xls") <> "" Then Kill "c:\temp\temp\*.xls" End Sub
Partager