Récupérer et comparer noms de dossiers - VB/VBA/VBS - Programmation
Marsh Posté le 27-09-2006 à 12:54:45
1/ c'est tellement simple que tu es invité à faire un effort plutôt que d'attendre une solution toute cuite
2/ utilise plutôt le pattern YYYYMMDD au lieu de DDMMYYYY car un simple tri littéral sur le nom te suffirait à retrouver la date la plus récente
Marsh Posté le 27-09-2006 à 13:12:14
1/ Je rêve.
2/ le format de la date n'est pas le problème.
Merci pour cette grande lecon de vie.
Marsh Posté le 27-09-2006 à 18:03:09
Voir et sans doute adapter
http://forum.hardware.fr/hardwaref [...] 1719-1.htm
du 07-06-2006 à 19:48:11
Marsh Posté le 27-09-2006 à 19:03:35
Merci beaucoup.
J'avais effectivement vu cette solution sur le forum, mais ca me semblait assez complexe, je pensais qu'il pouvait exister une fonction plus simple...
Encore merci.
Marsh Posté le 27-09-2006 à 22:26:26
Je ne crois pas qu'elle soit si complexe que ça et si c'est le cas tu peux la simplifier car le code est basique, de plus c'est en forgeant que l'on devient forgeron.
Une remarque j'ai supposé que tu utilisais VBA, il est sage de faire précéder les questions par un [VBA] ou [Vb6] ou [VbNET] etc
Si tu utilises ce code il te faudra :
Outils | Références Cocher Microsoft Scripting Runtime
Nommer la zone A2..C65536 en ZoneTri
Affecter un Bouton à TestListeFichiersDansDossier
en mettant auparavant TestListeFichiersDansDossier en Public et non Private
Si recursion Dossier/Sous Dossiers
ListeFichiersDansDossier Dossier, True sinon ListeFichiersDansDossier Dossier, False
Marsh Posté le 27-09-2006 à 12:40:10
Bonjour,
J'ai dans un répertoire, des dossiers dont le nom finit par une date, de type "maj_29062007"
Le but est donc après comparaison de chacun des noms de ces dossiers, d'ouvrir le plus récent.
Top chrono !
Merci.