Excel VBA : supprimer un fichier Excel

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 27 août 2010 à 17:38
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 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 !

6 réponses

cousinhub29 Messages postés 949 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 1 novembre 2024 344
30 août 2010 à 09:42
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
4