Discussion :

[shinta]

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

[bouley]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[ouskel'n'or]

Moi j'avais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bouley]

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

@+

[ouskel'n'or]

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

[shinta]

meci beaucoup.

[ouskel'n'or]

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...
shinta saura bien sélectionner le code en fonction de sa version...

A+

[bouley]

Ok Ouskel'nor
@+