help : présence et suppression de fichier

[crinquinette]

bonjour,
peut etre me suis je mal exprimée sur mon précédent post, alors je recommence.
j'ai un dossier qui comprend de multiples fichier nommés de la manière suivante alertes_' & annee & '.xls. chaque jour ouvrable un fichier est créé. je voudrais créer la macro suivante:
- aller dans le répertoire
- aller sur le premier fichier
- vérifier que 'année' dans le nom du fichier est supérieur à la date du jour -7
- si c'est exact supprimer le fichier
- aller sur le fichier suivant et faire les memes actions.

je suis pas très pro excel, et j'ai déjà testé des chose rien ne marche.
aidez moi svp

 

[Tibo]

Salut Crinquinette,

Je ne vais malheureusement pas pouvoir t'aider, étant plutôt formuliste.

Mais un détail : reste sur le même fil si tu veux reposer ta question.

Multiplier les fils ne sert à rien, si ce n'est à embrouiller le forum.

@+

 

[2passage]

Bonjour,

pour résumer, tu ne souhaites laisser dans ce répertoire que les 7 fichiers les plus récents, c'est ça ?
Quand tu dis 'alertes_' & annee & '.xls', ne veux tu pas plutot dire 'alerte_' & date & '.xls'. Il vaudrait mieux présenter les choses comme ça avec un exemple ou une description du format du nom genre Alerte_aaaammjj.xls
avec un exemple de nom de fichier, on pourra commencer a regarder comment faire

A+

 

[crinquinette]

re bonjour,
oui c'est bien ça je souhaite garder les 7 derniers fichier et chaque fichier est nommé de la mnière suivante :

alertes_01août05.xls

merci

 

[2passage]

Bonjour,

Voici un début de commencement de coup de main : un morceau de code qui va chercher les fichiers du répertoire courant et les stocke dans la feuille de calcul.

Dim strtst As String
Range('A1').Select
strtst = Dir('') 'initialise le test des noms de fichiers : récupère le 1er nom
Do While strtst <> '' 'vérifie qu'il reste un fichier
    ActiveCell.Value = strtst 'stocke le nom du fichier dans la cellule active
    ActiveCell.Offset(1, 0).Select 'décale la cellule active pour le nom suivant
    strtst = Dir 'affecte le nom du fichier suivant à la variable
Loop

Ca permet deja de voir comment marche Dir.. Pour les noms de fichiers.. hum.. quelle horreur, si je peux me permettre... si tu as le choix, une prochaine fois, utilise un format AAAAMMJJ dans les noms de fichier. L'avantage de ce format c'est qu'un classement alphabétique correspond à l'ordre chronologique.. ça aide...

A+

 

[crinquinette]

bonjour,
oui j'ai vu comment marchait la fonction dir mais je veux simplement lire le contenu du répertoire et supprimer les fichiers qui sont périmés.
les récupérer dans la feuille ça me sert pas à grand chose ou alors il y a une étape que j'ai raté.
merci

 

[crinquinette]

re bonjour
j'ai vraiment besoin d'aide, j'ai essayé mais ça marche pas.
merci d'avance

 

[2passage]

Bonjour,

Bon.. voila là macro toute finie, mais keep cool, j'ai aussi un métier... Attention, elle marche et elle ne pardonne pas elle SUPPRIME tout fichier dont le format correspond antérieur à 7 jours :

Private Sub CommandButton1_Click()
Dim strtst As String
strtst = Dir('')
Do While strtst <> ''
    If IsDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) = False Then GoTo suivant
    If CVDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) < Now() - 7 Then
        Kill strtst
    End If
suivant:
   strtst = Dir
Loop
End Sub

La prochaine fois que tu veux une macro, demande une macro, pas un coup de main...
A+

 

[crinquinette]

bonjur,
merci encore, c'est vrai je stresse mais on me demande des trucs de ouf alors stresse.
merci encore

 

[crinquinette]

re re bonjour,
j'ai testé et j'ai un message d'erreur 'erreur d'exécution 5, argument ou appel de procédure incorrecte. le problème c'est que j'ai essayé de changer la directory et me placer dans la bonne mais il prend par défaut celle de windows.
encore mille excuses

 

[2passage]

Re,

ajoute simplement une ligne pour pointer sur le bon repertoire :

ChDrive 'le disque de tes fichiers'
ChDir 'le chemin de tes fichiers'

A+

 

[2passage]

Re,

L'erreur d'execution 5, ca doit etre le découpage de chaine trop courte (prendre le 9ème caractère d'une chaine de 4, ca foire ^^)
Il y a d'autres fichiers que les alertes_*** dans le répertoire ?

Je te propose de remplacer la ligne

strtst = Dir('')
par
strtst = Dir('alertes_*.xls')

vala
A+

 

[crinquinette]

re re bonjour,
j'avais déjà essayé et j'ai refais voici ce que j'ai :
Sub CommandButton1_Click()
Dim strtst As String

ChDrive 'R'
ChDir 'R:\\01 - Sujets transverses\\00 - Suivi et Documents communs\\ZDEM Portefeuille des demandes\\Gestionnaire des demandes\\Alertes'

strtst = Dir('')
Do While strtst <> ''
If IsDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) = False Then GoTo suivant
If CVDate(Mid(strtst, 9, 2) & '/' & Mid(strtst, 11, Len(strtst) - 16) & '/' & Mid(strtst, Len(strtst) - 5, 2)) < Now() - 7 Then
Kill strtst
End If
suivant:
strtst = Dir
Loop
End Sub
et malgré cela il ne va pas dans le bon répertoire pour tuer les fichiers, je deviens chèvre
merci
clo

 

[crinquinette]

re,
ça marche génial et encore merci de tout coeur
clo