Fermer et supprimer le fichier

[Coco-31]

Bonjour le Forum,

J'ai ce code qui génère un fichier uniquement avec la feuille active du classeur cible et le copie dans le même répertoire, pour l'exemple Essai. Après exploitation, il se ferme et je souhaiterais le supprimer.J'ai tenté avec la syntaxe Kill sans succès ou l'ai je mal employé. Je remercie tous ceux qui pourront m'aiguiller

Sub essai()
Dim chemin, nom As String
chemin = ActiveWorkbook.Path
nom = "Essai"
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

A+
Coco

 

[Hulk]

Re : Fermer et supprimer le fichier

Hello,

Si jamais Kill s'utilise comme ceci

Sub SupprimFichier()

    Kill "C:\xxx\xxx.xls"

End Sub

EDIT :

Peut-être comme ça pour toi...

Je l'ai mis dans un deuxième bouton car je ne sais pas où tu veux placer le Kill

Private Sub CommandButton2_Click()

    Dim chemin, nom As String
    chemin = ActiveWorkbook.Path
    nom = "Essai[COLOR="Red"][B].xls[/B][/COLOR]"
    Kill chemin & "\" & nom

End Sub

Notes que pour le Kill, il faut rajouter l'extension au nom..

D'ailleurs, cela dit en passant, mieux vaut aussi mettre l'extension dans ta macro "essai" ça éviterait au cas ou tu as un fichier "essai.txt" ou "essai.doc" qu'il y aille conflit !

 

[Coco-31]

Re : Fermer et supprimer le fichier

Salut Hulk,

Merci pour ta précieuse réponse, cette satanée extension que je mettais correctement dans la syntaxte Kill mais pas dans le nom vu qu'il me la mettait par défaut.
enfin problème résolu

Merci encore
A+
Coco