Ouvrir fichier TXT le plus récent dans un dossier

[sweatjoe]

Bonjour le forum,

Pourriez vous me donner un code VBA pour ouvrir un fichier txt au sein d'un même dossier ? dans ce dossier il y a plusieurs fichiers txt mais j'aimerai ouvrir le dernier en date qui se trouve dans ce dossier. Pourriez vous me dire comment faire s'il vous plaît ?
Pour info le fichier commence toujours par DEF

Merci beaucoup pour votre aide.

Cdt,

Fabrice

 

[Lolote83]

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

 

[sweatjoe]

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

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

Cdt,

Sweatjoe