Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

JSP22

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

Pièces jointes

  • Liste de débit.xlsm
    18.1 KB · Affichages: 7
  • 36847.txt
    1.7 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
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)
 

Pièces jointes

  • Liste de débit.xlsm
    17.9 KB · Affichages: 2

JSP22

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

XLDnaute Barbatruc
Supporter XLD
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 :
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
 

Pièces jointes

  • Liste de débit (1).xlsm
    17.9 KB · Affichages: 1

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…