Discussion :

[Mimosa777]

Bonjour,

dans ma feuille excel, j'ai un bouton qui execute une macro. Quand je clique dessus, il me cree un fichier texte tel que :

Code :

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

1
2
3
Dim r As FileSystemObject
Set r = New FileSystemObject
r.CreateTextFile "C:\Documents and Settings\z70914\Desktop\AK-TEST\Creer_Utilisateur.txt"

J'ai un autre bouton qui lui doit faire le contraire, c'est a dire supprimer completement le fichier texte la ou il est placé et non pas seulement vider son contenu.

J'ai essayer avec Kill mais cela vide uniquement le fichier. J'ai aussi essayer ceci :

Code :

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

1
2
3
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\Documents and Settings\z70914\Desktop\AK-TEST\Connect_Procedure.txt")
f.delete

mais la il me donne un run-time error 70 : Permission Denied

Avez vous une idee svp ?

Merci d'avance

[Mimosa777]

C'est bon j'ai trouve. La fonction Kill fait bien le travail. Le probleme c'est que le fichier etait encore ouvert et ne voulait pas le supprimer lorsqu'il est ouvert.

Je ferme donc le fichier avec Close #1, et en utilisant Kill ensuite, le fichier est detruit sans probleme.

Merci tout de meme pour votre temps.