Discussion :

[Daffy13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pitchalov]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Daffy13]

C'est parfait ! Merci pour tout