Excel VBA : supprimer un fichier Excel Résolu

Question

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:	mp"
Kill (src & "	oto_" & "*.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 !

cousinhub29 · Accepted Answer

Bonjour,

Essaie ainsi :

Sub suppr()
Dim LePath As String
LePath = "D:	mp\"
Kill LePath & "toto_*.xls"
End Sub


Note le backslash (\) en fin du répertoire

Bonne journée

Patrice33740 · Answer

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:	mp")
  Kill ("toto_*.xls")
End Sub

Cordialement

Eaheru · Answer

Je suis sur PC, j'essaierais ca demain :) merci de ton aide !

Eaheru · Answer

Ok ca marche, il faut juste enlever les () 

Sub Supprimer()
  ChDrive ("D")
  ChDir ("D:	mp")
  Kill "toto_*.xls"
End Sub

Merci de ton aide ! :)

Patrice33740 · Answer

De rien, avec plaisir.

Pierre · Answer

Pour ceux qui passerait encore par-là,
Il suffit d'une ligne pour fermer le fichier (excel 2013)
Kill ("
omdudossier
omdufichier.xls")
pour récupérer le chemin complet, vous pouvez vous servire de l'explorateur de fichiers.
Bonne journée.

Excel VBA : supprimer un fichier Excel

6 réponses

Votre réponse

Discussions similaires