Ouvrir fichier TXT le plus récent dans un dossier

Re : Ouvrir fichier TXT le plus récent dans un dossier

Salut SweatJoe,

Voici un code a adapter à tes besoins

Sub CherchePlusRecent()
Dim xChemin
Dim xFichier
Dim xTemp
Dim xDatHeur
xChemin = "M:\Forum\" 'Définit le chemin d'accès.
xFichier = Dir(xChemin & "*.xls") 'Definit le type de fichier (ici xls)
xTemp = xFichier
xDatHeur = FileDateTime(xChemin & xFichier)
Do While xFichier <> ""
If FileDateTime(xChemin & xFichier) > xDatHeur Then
xTemp = xFichier
xDatHeur = FileDateTime(xChemin & xFichier)
End If
xFichier = Dir
Loop
MsgBox xTemp
End Sub

Cordialement Lolote83

Re : Ouvrir fichier TXT le plus récent dans un dossier

Super, c'est exactement ça, merci beaucoup Lolote83.

Cdt,

Sweatjoe