Discussion :

[rossemma]

Bonjour,

je cherche à automatiser la copie d'un fichier source vers mon fichier de travail
le fichier source à comme structure date-test1 (ex: 2024-03-29-test1)
je souhaiterais que mon code regarde si le fichier de la date du jour existe et si pas celui d'hier et si pas celui d'avant hier ...
le weed end il n'y a pas de fichier source.

une piste pour commencer mon code.

Merci.

[Tête de chat]

Bonjour,

ça pourrait ressembler à :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Public Function TrouveFichier(UnDossier As String, UnSuffixe As String, Optional AncienneteMax As Long = 10) As String
Dim I As Long
Dim UnFichier As String
While I < AncienneteMax And UnFichier = ""
     UnFichier = Dir(UnDossier & Format(Date - I, "yyyy-mm-dd-") & UnSuffixe)
     I = I + 1
Wend
TrouveFichier = UnFichier
End Function

Qui va s'appeler par un truc comme

Code :

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

toto = TrouveFichier("C:\TMP\","test1.txt")

Si on trouve un fichier en remontant jusqu'à AncienneteMax, on récupère son nom, et "" si non trouvé.

[rossemma]

Un grand merci

[rossemma]

comment puis je récupérer la date du fichier trouvé dans une variable utilisable dans d'autres modules ?