Importation fichier txt selon critère

Fermé
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 16 avril 2013 à 08:40
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 17 avril 2013 à 08:07
Bonjour,

Je cherche à améliorer une macro qui importe des fichiers txt sur excel.

Pourquoi ? Parce que mon dossier contient énormement de fichier par conséquent l'éxecution de ma macro est de plus en plus longue. Actuellement la seule alternative que j'ai trouvée consiste à réimporter tous les fichiers puis de supprimer ce que j'avais déjà --> perte de temps

Qu'est ce que je recherche ? Je souhaiterai, lorsque j'execute ma macro, pouvoir choisir les fichiers que je veux importer en fonction de leurs date de création. Par exemple importer tous les fichiers du 01/04/13 jusqu'à aujourd'hui

Est ce possible ?

Voilà ma macro d'importation

Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long

Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select

'Répertoire contenant les fichiers
Chemin = "N:ND 123\donnees\export"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)
Cells(i + 5, "P").Resize(24) = FileDateTime(Chemin & "\" & Fichier)
Fichier = Dir
Loop
End Sub


Merci
A voir également:

1 réponse

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
16 avril 2013 à 11:42
Personne ne connait la méthode ???
Raymond PENTIER Messages postés 58540 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 16 juillet 2024 17 144
17 avril 2013 à 03:02
Non.

Probablement parce que personne n'a jamais eu l'idée de faire une telle manipulation !
0
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
17 avril 2013 à 08:07
ah ok je suis peut être un peu gourmand alors...

Si quelqu'un à une idée, qu'il n'hésite pas !
0