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

JSP22 · 3 Novembre 2022

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 · 3 Novembre 2022

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

VB:

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 · 4 Novembre 2022

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

VB:

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 · 4 Novembre 2022

Bonjour,

JSP22 à dit:
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 :

Code:

' 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

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

JSP22

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

JSP22

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires