SUPPRIMER UN FICHIER OU UNE CATEGORIE DE FICHIERS DANS UN REPERTOIRE.

Signaler
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32173-supprimer-un-fichier-ou-une-categorie-de-fichiers-dans-un-repertoire

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
tu n'a pas décelé mon ironie...
j'ai bien compris l'intention, reste que ta ligne de code est incorrecte.

Mydate = #12/31/2030#
If Mydate = Format(Date, "DD/MM/YYYY") Then

Sur un poste avec les regional settings qui vont bien, nous aurons par exemple l'équivalent de:
If "31/12/2030" = "10/12/2007" Then

test OK...

mais si je change, dans le panneau de configuration mes regional settings, j'obtiens facilement :

If "31/12/2030" = "31.12.2030" Then
ou
If "31/12/2030" = "12/31/2030" Then

en réalité, ton Format$ rend la chose trop minimaliste...

contentes toi simplement de :

Mydate = #12/31/2030#
If Mydate = Date Then

et zou! plus de conversion String<>Date, un simple test d'egalité.

pas de soucis avec l'heure, Date, a la difference de Now() n'inclut pas l'heure
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010

en faite
cela detruit ton fichier a une date donnee et cela est vraiment bien pour le reste je ne sais pas je suis novice
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
je ne comprend pas cette ligne de code :
If Mydate = Format(Date, "DD/MM/YYYY") Then

quel interet de passer Date en String, au risque de ne pas faire coïncider les parametres regionnaux ?
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010

bonjour une petit code pour détruire un fichier excel ou autre
rivate Sub Form_Load()

Dim Mydate As Date

Mydate = #12/31/2030#
MsgBox " Validité jusqu'au 31/12/2030"
If Mydate = Format(Date, "DD/MM/YYYY") Then
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If
Next Ndx
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub
en lui inserant une date cela fonctionne vraiment et vous pouver emporter vos fichier il seront detruit a une dtefixe de votre choix
Afficher les 11 commentaires