VBA - Sélection chronologique de fichier dans un répertoire Résolu/Fermé

Question

Bonjour, Voici le problème : Dans un répertoire est mis des fichiers de mesures (*.) durant la journée mais ils ne doivent pas être modifiés durant 8h après leurs mise dans ce répertoire. Ma macro vient donc regarder chaque fichier présent dans le but de de déplacer et prend sa date de modification pour voir si les 8 heures sont écoulées. Cependant dès qu'un fichier ne doit pas être bougé (<8h) ma macro se stope. Code de sélection du fichier : While fichier <> "" If Right(fichier, 3) <> "txt" Then 'TRIAGE DES SEQUENCES 'Commencement par la prise des informations Set wbsource = Workbooks.Open(CheminOpen & "\" & fichier) 'open the file nomdufichier = ActiveWorkbook.Name DateModif = FileDateTime(nomdufichier) EcartDates = DateDiff("h", DateModif, Now, vbMonday, vbFirstJan1) If EcartDates < Limite Then 'MsgBox ("OF " & nomdufichier & " EN COURS !" & Chr(10) & "Réessayez dans : " & Limite - EcartDates & "Heures") wbsource.Close False Exit Do End If . . . fichier = Dir End If Loop Comment faire pour modifier ce "Exit Do" afin qu'Excel continue de prendre les autres fichiers et ne se stope pas dès qu'un fichier est contrôlé trop jeune ? Peut-etre les classer par ordre de modification, ou encore les prendre selon leur nom ? Je vous remercie déjà pour vos réponses ! Meilleures salutations, rEVOLV3r Configuration: Windows 7 / Internet Explorer 9.0

pijaku · Answer

Salut,

Tu peux faire comme ça :

If EcartDates < Limite Then
    'MsgBox ("OF " & nomdufichier & " EN COURS !" & Chr(10) & "Réessayez dans : " & Limite - EcartDates & "Heures")
    wbsource.Close False
Else
    'ICI le traitement à faire si fichier à traiter
    '
    '
End If

rEVOLV3r · Answer

Bonjour,

Merci beaucoup pour votre réponse, mais malheureusement cela ne fonctionne pas.

Il faudrait que lorsque le code repère un fichier trop jeune, il ne le prenne pas en compte mais continue de trier les autres. Voici une petite explication graphique ;-)

Répertoire : 
fichier1 (vieux) 
fichier2 (jeune) 
fichier3 (vieux) 
fichier4 (vieux) 

Step 1 macro : fichier1 analysé -> vieux -> déplacé dans un autre répertoire
Step 2 macro : fichier2 analysé -> jeune -> on passe au suivant sans le toucher
step 3 macro : fichier3 analysé -> vieux -> déplacé dans un autre répertoire
etc.

Il faudrait donc qu'excel passe au suivant mais ne le reteste pas, créer une exclusion pour les noms de fichiers testé trop jeunes. S'il n'y a pas de manière facile je créerai une "mémoire tampon" avec les noms des fichiers à exclure... 

Meilleures salutations,
rEVOLV3r

michel_m · Answer

bonjour

sans ouvrir les fichiers et en laissant le choix d'essayer d'autres fichiers ou non
avec

Set ObjFich = CreateObject("Scripting.fileSystemObject")ChDir "D:\documents" 'A adapterFich = Dir("*.txt")While Fich <> ""    Set nomfich = ObjFich.GetFile(Fich)    dermodif = nomfich.dateLastModified   'tes codes d'évaluation     Rep = MsgBox(Fich & "en cours, continuer ?", vbYesNo)     If Rep = vbNo Then Exit Sub     Fich = DirWend

???
EcartDates = DateDiff("h", DateModif, Now, vbMonday, vbFirstJan1)
par
 EcartDates = DateDiff("h", DateModif, Now)
 Michel

rEVOLV3r · Answer

Merci bien a tous pour votre aide ! Vous m'avez donné l'idée pour résoudre mon problème. :-)

J'ai juste utilisé Fichier = Dir et un...goto ouai j'en suis pas fier mais ca m'évite de devoir modifié ma macro de 743 lignes ^^

Merci bien je mets en résolu.

VBA - Sélection chronologique de fichier dans un répertoire

4 réponses

Discussions similaires