VBA Import fichiers selon nom

Bonsoir tout le monde!

Novice en VBA je fais appel à votre aide.

Je souhaite réaliser un code VBA (seulement VBA) qui permet l'import de fichiers .txt sur ma feuille Excel.

Je vous présente le problème:

J'ai un dossier avec plusieurs fichiers .txt, avec une dernière lettre "P" ou "K" et un début de nom de fichier représentant la date, exemple:

20200120bonjourK.txt

20200121bonjourK.txt

20200122bonjourP.txt ...etc.

- Donc je ne souhaite qu'importer les fichiers .txt qui ont en dernière lettre "P" (ex: "20200123bonjourP.txt"; cette dernière lettre est utlisée pour reconnaitre le fichier et je ne veux pas changer). De plus, je souhaite mettre en paramètre une fourchette de date que l'on rempli manuellement et qui importe tout les fichiers compris dans cette fourchette (Ex: date de début: 20200119, date de fin 20200122; cela importe tout les .txt ayant un préfixe compris dans cette fourchette).

Je suis ouvert à toute proposition de code,

Merci beaucoup!

fizuaal

Bonjour Fizuaal,

Un début de réponse avec ce code. Celui est valable pour un mois identique

A tester dans une feuille vierge. Ou colonne A est vide

Si cela te convient. Il faudra ensuite plus de précision sur le répertoire des fichiers…

Ce code n'ouvre pas les fichiers, il les listent seulement.

Sub FichText()
Dim Dat(2),Rep(2)
Dat(0)="Début":Dat(1)="Fin"
For I=0 to 1
Rep(I)=InputBox("Entrez la date (yyyymmdd) de " & Dat(I), "Import *P.txt)
Next I
If rep(1)<rep(0) then Test=MsgBox("Erreur: la date finale est inférieure à celle initiale",vbOkOnly,"Attention)
If Test = 1 then Exit Sub
Nb = Rep(1) - Rep(0)
For J= 0 to Nb
Fich=Rep(0) + J & "P.txt"
Cel=Cel +1
Range("A" & Cel)=Fich
Next J