Excel VBA : supprimer un fichier Excel [Résolu/Fermé]

Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
- - Dernière réponse : Patrice33740
Messages postés
7844
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2019
- 6 févr. 2017 à 23:37
Bonjour,

Voici mon souci :
J'ai, dans un répertoire, un fichier qui est sauvé chaque jour au format : toto_27-08-2010.xls
la date est celle du jour de la sauvegarde et change donc tous les jours.

J'aimerais pouvoir supprimer ce fichier avant la sauvegarde du nouveau et j'ai tenté d'adapter une macro que j'ai pu trouver sur ce sujet :

sub Supprimer()

Set fso = CreateObject("Scripting.FileSystemObject")
src = "D:\tmp"
Kill (src & "\toto_" & "*.xls")
end sub


Mais la routine ne trouve pas le fichier, j'imagine donc que le caractère joker "*" n'est pas pris en compte ?
Quelqu'un verrait il mon erreur svp ?

Merci d'avance !
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
587
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
258
3
Merci
Bonjour,

Essaie ainsi :

Sub suppr()
Dim LePath As String
LePath = "D:\tmp\"
Kill LePath & "toto_*.xls"
End Sub


Note le backslash (\) en fin du répertoire

Bonne journée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 71272 internautes nous ont dit merci ce mois-ci

Messages postés
7844
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2019
1233
0
Merci
Bonsoir,

Avec quelle configuration ?

Aide VBA : « sur le Macintosh, ces caractères sont considérés comme des caractères de noms de fichiers valides et ne peuvent être utilisés comme des caractères génériques pour spécifier des fichiers multiples. »


Sur PC :

Sub Supprimer()
  ChDrive ("D")
  ChDir ("D:\tmp")
  Kill ("toto_*.xls")
End Sub


Cordialement
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
19
0
Merci
Je suis sur PC, j'essaierais ca demain :) merci de ton aide !
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
19
0
Merci
Ok ca marche, il faut juste enlever les ()

Sub Supprimer()
ChDrive ("D")
ChDir ("D:\tmp")
Kill "toto_*.xls"
End Sub

Merci de ton aide ! :)
Messages postés
7844
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2019
1233
0
Merci
De rien, avec plaisir.
0
Merci
Pour ceux qui passerait encore par-là,

Il suffit d'une ligne pour fermer le fichier (excel 2013)

Kill ("\nomdudossier\nomdufichier.xls")

pour récupérer le chemin complet, vous pouvez vous servire de l'explorateur de fichiers.

Bonne journée.
Patrice33740
Messages postés
7844
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2019
1233 -
Kill c'est pas pour fermer ... c'est pour supprimer !!!!!.