Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

sélection de fichiers par date croissante dans un dossier

3 réponses
Avatar
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

3 réponses

Avatar
Daniel.C
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" a écrit dans le message de news:
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




Avatar
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" a écrit dans le message de news:
##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" a écrit dans le message de news:
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








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

"michor" a écrit dans le message de news:
%
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" a écrit dans le message de news:
##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" a écrit dans le message de news:
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