Supprimer fichier excel avec macro

Bonjour Pijaku, et merci encore pour la patience!!!

N y'a-t-il pas une solution sans que l'utilisateur ne soit appelé a saisir la date? :( Et en plus je voulais savoir c'est sur qu'elle format la date? ce format ci ----> 10-4-2009? Et---->"effacer" fait référence a quoi? . Et en plus je n'ai qu'un seul dossier de sauvegarde je veux juste effacer certains fichiers qui sont dans un même dossier mais en fonction de la date.

Merci encore et j'espères que je suis claire dans mes questions.

Bonne journée.

Oui mais pour les rendre fixes on peut par exemple supprimer des fichiers sauvegarder il y'a 2 jours. Par exemple si j'ai fait mes sauvegardes lundi alors je les supprime le mercredi. ça c'est possible ou pas?

Et voici ce que j'ai rajouter sur ma proc d'effacement:

Sub auto_open()

Dim Fic As String
Dim Jour As String
Jour = InputBox("saisir la date à laquelle vous souhaitez supprimer les fichiers", "date")

Fic = Dir("\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Jour)
Do While Fic <> ""

Kill "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Fic & Jour
Fic = Dir
Loop

End Sub
J'ai mis ma question comme tu me l'as conseillé et dans ma création j'ai fait ceci:

Sub creation()


Dim Chemin As String
Dim fname As String

MkDir "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & CDate(Date)

debut:
Start = Timer
intervalle = 60

Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop

Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"

fname = Chemin & "test- " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".xls"


ActiveWorkbook.SaveCopyAs Filename:=fname


GoTo debut

End Sub

Mais J'ai une erreur sur MkDir on me dit chemin introuvable. Peut-être que je fais mal ma création de dossier. Et pourtant mon chemin me semble correcte
:(

Oui Dur pour moi comme tu le dit!
Avec les modification apporter il me crèe le dossier nommé par la date courante mais il ne me pose pas la question de savoir a quel date je veux supprimer mes fichiers; Ce qui est normale vu ke tu m'a conseillé de mettre ceci--->jour = Format(Date, "dd_mm_yyyy") au lieu de ceci---->Jour = InputBox("saisir la date à laquelle vous souhaitez supprimer les fichiers", "date")?
En plus il ne me crèè pas mes fichiers de sauvegarde dans le dossier nommé avec la date courante: voici le code que j'ai:

------------------------Dans ma procedure de creation--------------------------------------
Sub creation()


Dim Chemin As String
Dim fname As String
Dim jour As String
jour = Format(Date, "dd_mm_yyyy")
MkDir "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & jour


debut:
Start = Timer
intervalle = 60

Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop

Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"

fname = Chemin & "test- " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=fname
GoTo debut

End Sub
----------------------Dans ma procedure d'effacement-----------------------------------
Sub auto_open()

Dim Fic As String
Dim jour As String
jour = Format(Date, "dd_mm_yyyy")

Fic = Dir("\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & jour)
Do While Fic <> ""

Kill "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Fic & jour
Fic = Dir
Loop

End Sub

En plus mon effacement des fichiers ne fonctionne plus :(
-------------
Je sais que c'est dur mais j'ai vraiment besoin d'un gros coup de pouce.

Salut,
J'ai testé exactement ce que tu m'a donné sans rien changé juste en vérifiant un peu pour ma comprehension. Mais j'ai tjrs cette erreur lié a mkdir! L'erreur d'exécution '75' Erreur d'accès chemin fichier. C'est du a quoi stp? Et pourtant j'ai mon dossier nommé avec la date qui se crèe :(