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 Accro
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

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

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

Cdt,

Sweatjoe
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas