[VBA-E]supression d'un ficher depuis excel

Bonjour j'aimerais savoir comment faire pour supprimer un fichier .xls depuis du code vba en excel, fichier qui peut etre en lecture seule...

Bonjour shinta
fais reference à Microsoft Scripting Runtime
Menu Outils----> Références

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub SupprFichier() Dim fso As FileSystemObject Dim FichierExcel As File Set fso = New FileSystemObject Set FichierExcel = fso.GetFile("c:\test.xls")   'L'option True force la suppression si le fichier est en lecture seule par exemple 'Mais pas s'il est ouvert FichierExcel.Delete True End Sub

---

@+

Moi j'avais ça :

Code:

---

1 2 3 4

ActiveWorkbook.Close SaveChanges:=False Chemin = "C:\xls\" FichierAEffacer = Chemin + "NomDuFichierAeffacer.xls" Kill FichierAEffacer

---

Salut ouskel'n'or,
Le Kill ne permet pas de supprimer le fichier s'il est en lecture seul !
Cest une condition que veux shinta

@+

Tu es sûr ? Je vérifie ! :wink:
Je te dis ça et si je me trompe, je kill mon post :wink:

meci beaucoup.

Désolé, Bouley, je viens d'essayer et mon classeur a bel et bien disparu...
Ceci dit, je suis sur office 97 et les dispositions sur la sécurité des classeurs a changé pour les versions plus récentes. Donc, j'émets l'hypothèse que nous avons tous deux raison... :wink:
shinta saura bien sélectionner le code en fonction de sa version...

A+

Ok Ouskel'nor
@+