Microsoft 365 Récupérer le nom et la date d'un fichier TXT

[JSP22]

Bonjour à tous,

J'ai créé un fichier VBA permettant d'ouvrir un fichier txt et d'en garder que les lignes intéressantes (jusque là tout fonctionne !)
Je souhaiterais rajouter à ma macro le fait de pouvoir récupérer la date du fichier (date de modification) et le nom du fichier txt en question. Je tourne un peu en rond, c'est pour quoi je me tourne vers vous pour me débloquer !
Merci par avance 🙂

Bonne soirée

PS : J'ai mis mon fichier en pièce jointe pour illustrer ce que j'ai dit !

 

[sylvanu]

Bonsoir JSP,
Ne sachant ce que vous vouliez en faire j'ai mis ça sous forme de msgbox avec :

MsgBox "Nom du fichier : " & fich_txt & Chr(10) & "Dernière modif : " & FileDateTime(fich_txt)

Le nom du fichier est : fich_txt
La dernière modif est : FileDateTime(fich_txt)

 

[JSP22]

Bonsoir JSP,
Ne sachant ce que vous vouliez en faire j'ai mis ça sous forme de msgbox avec :

MsgBox "Nom du fichier : " & fich_txt & Chr(10) & "Dernière modif : " & FileDateTime(fich_txt)

Le nom du fichier est : fich_txt
La dernière modif est : FileDateTime(fich_txt)

Merci pour ton attention,
En fait je souhaitais faire en sorte que le nom et la date soient copiés dans une cellule come dans mon onglet "exemple".

 

[sylvanu]

Bonjour,

le nom et la date soient copiés dans une cellule come dans mon onglet "exemple".

Je ne vois pas où est le souci, il vous suffisait de le faire en fin de macro avec :

' Inscription nom fichier et date de dernière modif.
Dim DL%: DL = Range("A65500").End(xlUp).Row
If DL > 0 Then
    Range("D1:D" & DL) = fich_txt
    Range("E1:E" & DL) = FileDateTime(fich_txt)
End If
Columns.AutoFit: [A1].Select