Discussion :

[jerzy59]

Bonjour.
J'ai un fichier identifié par une date au format jjmmaa
J'aimerai que mon programme supprime automatiquement le ou les fichiers générés 30 jours avant (un mois donc)
Nous sommes le 12 mai donc 1205206. Comment puis je faire pour demander à mon programme de tester si il y a des fichiers se nommant 120406 ?

[Catbull]

Il suffit de soustraire 100 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
strDate = "120506"
 
MsgBox CStr(CLng(strDate) - 100)

Pour connaitre l'existence d'un fichier, tu peux utiliser la fonction Dir

Edit : Ce code est n'est pas valide pour le passage d'une année à l'autre. Donc ce code n'est pas utilisable pour les mois de janvier.

[riesseg]

moi je pensais deja a un datediff ou un truc du genre...

mais la methode de Catbull est radicale ^^

[jerzy59]

J'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Dir$(Chemin & "\" & strdate & "rapport.txt") <> vbNullString Then
         Kill (Chemin & "\" & strdate & "rapport.txt")

j'aimerai que "strdate" contienne la date - 1 mois
donc dans le cas d'aujourdhui j'aimerai que strdate contienne 120406.
EN fait j'aimerai soustraire un mois mais je ne sais pas comment faire

[riesseg]

mouarf, dans ce cas, mieux vaut utiliser DateDiff (fonction qui permet de faire la difference entre 2 dates et d'avoir le resultat en en annees, nois, semaines, jours, heures, minutes ou secondes.)

tu chope le nom du dossier
tu le fout en format date
tu compare cette date tampon avec la date du jour
tu supprime ou pas
tu recommence

[jerzy59]

Lorsque je met ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ladate = Format(Now, "ddmmyy")
datebis = Format("120406", "ddmmyy")
MsgBox DateDiff("m", ladate, datebis)

il me donne 5267 comme réponse ... il y a un problème ou c'est moi qui ne sais pas me servir de la fonction datediff ?

[SfJ5Rpw8]

dateDiff permet de connaitre l'intervalle de temps entre 2 dates , c'est pas cela que tu ve?

tiens avec une combinaison de DateSerial... fonction te donnant la date actuelle - 1 mois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test()
Dim dMoins1mois As Date
Dim d As Date
d = Now
dMoins1mois = DateSerial(Year(d), Month(d) - 1, Day(d))
MsgBox dMoins1mois
End Sub