suprimer un fichier a une date fixeRésolu

Question

j'ai un petit programme qui fonctionne tres bien mais je souhaite lui donnée une date fixe comment puis je faire pour supprimer a une date clé
merci de votre aide
Sub Suicide()
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 Sub

 pat

cs_Exploreur · Accepted Answer

Salut,

Tu as cas lui donner une date en fixe à ton programme...perso je ferais comme cela :

Private Sub Form_Load()


Dim Mydate As Date


Mydate = #11/20/2007#


If Mydate = Format(Date, "DD/MM/YYYY") Then
   MsgBox " Coucou, c'est toto"
End If


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

patbl · Answer

re bonjour Exploreur
petit souci mon fichier ce détruis avant la date que je lui donne peux tu m'aider*
merci d'avance
 pat

cs_Exploreur · Answer

Salut,

Je pense que tu as toutes les informations demandées pour réussir ta demande...Un conseil, lance ton application en mode pas-à-pas, pour voir et comprendre pourquoi ton fichier est détruit avant la date que tu as choisi...Je voudrais quand même voir où tu as inséré la vérife de la date dans ton code ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

patbl · Answer

bonjour ,
en bibouillant ca marche ! enfin je peux crée et supprimer a ma date voulue merci beaucoup Exploreur de ton aide

 pat

cs_Exploreur · Answer

Salut,

De rien...au plaisir...

A+
Exploreur

 Linux a un noyau, Windows un pépin

patbl · Answer

re bonjour Exploreur 
juste une info si le fichier est copié sous un autre nom la macro reste en fonction ou pas ?
merci d'avance

 pat

patbl · Answer

re re bonjour 
c'est ok on peut le mettre sous différent nom ca écrase tout trop top pour ne pas nous voler notre boulot merci Exploreur de ta gentillesse

 pat

Suprimer un fichier a une date fixe

7 réponses

Votre réponse

Discussions similaires