Recherche dernier fichier d'un même groupe

Pour ne pas recréer un post vu que ma demande est dans ce même script, voici mon problème :

Pour trouver le fichier le plus récent, je mettais les fichiers de même entête dans un même répertoire, et le second type de fichier avec une même entête dans un second. Puis je cherche dans un des deux répertoires suivant lequel j'utilisais.

Maintenant, je voudrais pouvoir mettre ces deux types de fichiers dans un même répertoire, et chercher le dernier fichier en fonction de son entête.

Illustration :

AVANT :

Dossier X:
Fichier XXX-XXX-DATE.xls
Dossier Y:
Fichier YYY-YYY-DATE.xls

Après :

Dossier XY:
Fichier XXX-XXX-DATE.xls
Fichier YYY-YYY-DATE.xls

Les valeurs XXX et YYY restent inchangé quelque soit la date du fichier.

Pouvez-vous m'aider ?

Voici ce que j'utilisais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function FindLastFile(Path) Dim FileName Dim FileDate Dim FileDir Dim Files Dim File Set FileDir = fso.GetFolder(Path) 'fso.GetFolder Set Files = FileDir.Files For each File in Files   If File.DateCreated > FileDate Then FileDate = File.DateCreated FileName = File.Name End If 'Debug.Print File.Name, File.DateCreated, "=>", FileName, FileDate Next Set Files = Nothing Set FileDir = Nothing   FindLastFile = FileName End Function

---

Merci d'avance

Bonjour,

Je pense qu'il y a plein de manières de résoudre ton problème.
Voici comment je ferai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function FindLastFile(Path, Entete) Dim FileName, FileTempName, FileDate, FileDir, Files, File Set FileDir = fso.GetFolder(Path) Set Files = FileDir.Files For Each File in Files FileTempName = File.Name If StrComp(Left(FileTempName, Len(Entete)),Entete, vbTextCompare) = 0 AND File.DateCreated > FileDate Then FileDate = File.DateCreated FileName = File.Name End If 'Debug.Print File.Name, File.DateCreated, "=>", FileName, FileDate Next Set Files = Nothing Set FileDir = Nothing   FindLastFile = FileName End Function

---

En gros, je passe l'entête recherchée en paramètre.
Puis dans la fonction, je la teste par rapport au début du nom de fichier pendant le parcours du dossier.

En espérant t'aider.

C'est parfait ! Merci pour tout :)