Discussion :

[zeugzeug]

Bonjour,

Comment fermer un fichier actif et l'effacer ?

Voici mon code :

Code :

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

1
2
Windows("fichier.txt").Activate
    ActiveWindow.Close

Peut-on supprimer ce fichier sans rentrer son chemin dans le code ?

Merci d'avance

[Godzestla]

Bonjour,

pour fermer le fichier tu peux directement faire :

Code :

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

1
2
 
Workbooks("fichier.txt").close

Pour effacer le fichier, ton code d'effacement doit être dans une uatre fichier que lui-même, bien-^sur.

Tu peux utiliser KILL, pour l'effacer, mais il te faut son chemin.
Tu peux faire :

Code :

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

1
2
3
4
5
 
chemin = Workbooks("fichier.txt").fullname
workbooks("fichier.txt").saved=true
workbooks("Fichier.txt").close
kill chemin