sélection de fichiers par date croissante dans un dossier

Le
michor
Bonjour à tous

Dans une boucle

For Each Fichier in MonDossier.Files
Next Fichier

la boucle retourne <Fichier> suivant le classement alphabétique des fichiers
contenus dans <MonDossier>.
Comment faire pour obtenir <Fichier> dans l'ordre des dates de création des
fichiers par dates croissantes?

D'avance, merci de votre aide

Michor
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5002261
Bonjour.
Pour les dates de créatiion, je ne sais pas faire directement. Sinon, pour
les dates de modification, avec FileSearch (donc pas pour Excel2007) :

With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfe"
.Filename = "*.*"
.Execute msoSortByLastModified
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next

Cordialement.
Daniel
"michor" OAHEoW%
Bonjour à tous

Dans une boucle

For Each Fichier in MonDossier.Files
Next Fichier

la boucle retourne <Fichier> suivant le classement alphabétique des
fichiers
contenus dans <MonDossier>.
Comment faire pour obtenir <Fichier> dans l'ordre des dates de création
des
fichiers par dates croissantes?

D'avance, merci de votre aide

Michor




michor
Le #5002001
Bonjour,

Merci de votre aide... mais le tri des fichiers continue à se faire par nom
malgré la ligne msoSortByLastModified.
Là, je suis à quia

Cordialement
Michor


"Daniel.C" ##WWxn#
Bonjour.
Pour les dates de créatiion, je ne sais pas faire directement. Sinon, pour
les dates de modification, avec FileSearch (donc pas pour Excel2007) :

With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfe"
.Filename = "*.*"
.Execute msoSortByLastModified
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next

Cordialement.
Daniel
"michor" OAHEoW%
Bonjour à tous

Dans une boucle

For Each Fichier in MonDossier.Files
Next Fichier

la boucle retourne <Fichier> suivant le classement alphabétique des
fichiers
contenus dans <MonDossier>.
Comment faire pour obtenir <Fichier> dans l'ordre des dates de création
des
fichiers par dates croissantes?

D'avance, merci de votre aide

Michor








Mgr Banni
Le #5001971
mico-climat, michor, car chez moi, ça marche très bien
Mgr T.B.

"michor" %
Bonjour,

Merci de votre aide... mais le tri des fichiers continue à se faire par
nom
malgré la ligne msoSortByLastModified.
Là, je suis à quia

Cordialement
Michor


"Daniel.C" ##WWxn#
Bonjour.
Pour les dates de créatiion, je ne sais pas faire directement. Sinon,
pour
les dates de modification, avec FileSearch (donc pas pour Excel2007) :

With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfe"
.Filename = "*.*"
.Execute msoSortByLastModified
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next

Cordialement.
Daniel
"michor" OAHEoW%
Bonjour à tous

Dans une boucle

For Each Fichier in MonDossier.Files
Next Fichier

la boucle retourne <Fichier> suivant le classement alphabétique des
fichiers
contenus dans <MonDossier>.
Comment faire pour obtenir <Fichier> dans l'ordre des dates de création
des
fichiers par dates croissantes?

D'avance, merci de votre aide

Michor












Publicité
Poster une réponse
Anonyme