Code VBA pour supprimer un fichier

Bonjour,

J’ai un code - en partie créé par Dan - qui, après simplification, ressemble à ça :

Option Explicit
Public Const extension = ".xls"
Public Const shref As String = "RepListe"
-------------------------------------------------------------------------
Sub Import_aaaa()

Dim plig As Integer, dligfichier As Integer, i As Integer
Dim fichier As String
Application.ScreenUpdating = False
fichier = "aaaa"
Workbooks.Open Filename:="P:\" & fichier & extension
With ThisWorkbook.Sheets(shref)
.Activate
.......
With Workbooks(fichier & extension).Sheets(1)
dligfichier = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dligfichier
.......
Next
End With
.......
End With
.......

    '   Suppression du fichier aaaa.xlsm
    Kill "P:\" & fichier & extension

Mon problème est que je voudrais que le fichier aaaa soit supprimé définitivement après avoir été utilisé dans les premières lignes de ce code (transfert de données), mais ça bloque justement sur la dernière ligne : Kill "P:\" & fichier & extension.

Savez-vous ce que je fais de faux ?

Bonnes salutations à tous

Bonjour,

Il me semble que Windows ne peut supprimer un fichier ouvert......

Ferme ce fichier par l'instruction :

WorkBooks("ton nom de fichier.xls").Close False

False signifiant que tu ne veux pas enregistrer les modifications (normal, tu vas le supprimer.......)

Et ensuite, supprime-le....

Bon W-E

Merci infiniment pour ta proposition Felix.

Je ne peux malheureusement pas l'essayer avant lund., au travail. Je te tiendrais au courant.

Bonne journée.

Felix,

Depuis ma dernière réponse le 9 mai, j'ai eu quelques problèmes de santé. Je n'ai donc pas pu tester ta proposition jusqu’à aujourd’hui.

Celle-ci fonctionne parfaitement. Merci infiniment de m’avoir aidé à résoudre mon problème.

Bonnes salutations et à une prochaine.

Bonjour,

j'utilise la même syntaxe pour supprimer mes fichiers mais cela ne fontionne pas alors que ça devrait...

je parcours un dossier fichier par fichier

je fais un saveAs sur les fichiers "en partage"

je fais mon traitement

ensuite, je supprime le fichier crée.

wbkSaveAs.Close False

Set myFso = CreateObject("Scripting.FileSystemObject")

Set fDelete = myFso.GetFile(strSaveAs)

' fDelete.Delete

Kill (strSaveAs)

Merci pour votre aide !!!

Salut Amichina ,

Yvouille a écrit :

Depuis ma dernière réponse le 9 mai, j'ai eu quelques problèmes de santé.

Comme il s'agit d'une nouvelle question, tu devrais ouvrir une nouvelle discussion, quitte à faire référence à ce poste en copiant-collant le lien.

Ces jours je n'ai pas trop le temps de répondre à ton problème et peu de membre s'intéressent à un fil si ancien.

Amicalement.

Salut

Ahh je n'avais aps vu que ça datait de 2009 !!!

tu as raison !

Je vais chercher de mon côté sinon je ferai une nouvelle publication !

Bon courage!

Probleme résolu.

Merci quand meme ^^