Excel VBA : supprimer un fichier Excel
Résolu
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 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 -
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 -
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 !
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 !
A voir également:
- Vba supprimer un fichier
- Supprimer rond bleu whatsapp - Guide
- Fichier bin - Guide
- Impossible de supprimer un fichier - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
6 réponses
cousinhub29
Messages postés
1074
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
7 août 2025
361
30 août 2010 à 09:42
30 août 2010 à 09:42
Bonjour,
Essaie ainsi :
Note le backslash (\) en fin du répertoire
Bonne journée
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