Ouvrir fichier TXT le plus récent dans un dossier

sweatjoe

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
13
Affichages
474

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87