Récupération des données du dernier fichier texte créé avec

Fermé
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022 - 7 nov. 2022 à 14:04
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022 - 17 nov. 2022 à 08:51

Bonjour,

J'espère que je serai assez.

Je souhaite récupérer tous les résultats du  DERNIER fichier texte (quelque soit son nom) créé dans un dossier connu

pour les coller dans une feuille d'un excel.

L'extension du fichier texte est en ".fet"

Je veux piloter cette fonction en VBA à l'ouverture du document excel (ça normalement je sais le faire)

merci d'avance
 

A voir également:

4 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
7 nov. 2022 à 15:47

Bonjour,

voir ceci

a adapter


0
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022
7 nov. 2022 à 18:44

Merci de ta réponse.

J'ai 3 soucis:

-Dans mon dossier j'ai + de 4500 documents donc il me mets un message d'erreur  sur la m=m+1

quand je mets le curseur je suis m= 3200. J'ai fait l'essai sur un autre dossier la macro fonctionne.

-Deuxième soucis: il ne me copie pas les Résultats du document .txt : en A1 j'ai le nom du bon txt et B1 la date du document

-Troisième soucis: j'ai créé 2 fichiers txt : ils ont la même date, mais pas la même heure. De plus ils ont des noms différents

Après exécution en A1 j'ai le moins récent + date en B1 et le plus récent en A2 + date en B2

est ce normal ? 

Pour info sur la macro je n'ai changé que le chemin, extension et l'onglet du Excel

0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
8 nov. 2022 à 09:29

Pour le 2ème point, tu peux ouvrir ton fichier texte et faire le copier coller:

voir ceci

pour le 3ème mettre ceci pour avoir l'heure

'Récupère la date de création
        Tableau(2, m) = Left(FileItem.DateCreated, 16)

16 à la place du 10

@+

0
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022
11 nov. 2022 à 12:03

Merci ça fonctionne.

Pour le point 3 j'ai toujours le nom du second txt qui apparaît sur la case A2.

vu que j'ai plus de 3000 txt dans le vrai dossier j'ai peur qu'il me les écrivent tous sur la feuille (ralentissement de la macro)

peut-on faire quelque chose?

0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 12 nov. 2022 à 09:16

re

Il faut les afficher pour pouvoir les trier par ordre décroissant de la création !

0
anakin_74 Messages postés 41 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 17 novembre 2022
17 nov. 2022 à 08:51

Merci de ton aide

0