Ouvrir un .txt avec VB, en fonction d'une date

[Joyce]

Bonsoir à toutes et à tous,

Je cherche un petit code VB qui me permette d'ouvrir un fichier .txt en fonction d'une date concatenée dans le nom. Je m'explique. Ci dessous 3 exemples de fichiers successifs :

Stats_20060201_xde.txt
Stats_20060202_wcz.txt
Stats_20060203_ghr.txt
etc...

Les 3 derniers signes du libéllés sont aleatoires.
(facilement traités avec '*'.)

Pour la date, je voulais me baser sur la date système. Mais je pense qu'une combo box serait preferable.
Je debute, alors bonjour le trophée Andros...je patine déjà. :S

Merci d'avance pour votre aide.

Bonne soirée

 

[Joyce]

Bonjour,

J'avais oublié de preciser que je voulais ouvrir ces fichiers sous xls.

Merci

Bonne journée

 

[MichelXld]

bonsoir Joyce

je ne reussi pas à placer la macro dans le post : je l'ai donc collé dans le fichier joint

j'espere que ça pourra t'aider : la procedure boucle sur tous les fichiers textes d'un repertoire et l'ouvre si la date contenue dans le nom du fichier correspond au '01/02/2006' . La macro extrait les valeurs numeriques du nom de fichier '20060201' et le transforme au format '01/02/2006'


bonne soirée
MichelXld [file name=fichierTexteFonctionDate.zip size=656]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichierTexteFonctionDate.zip[/file]

 

[Joyce]

Bonsoir MichelXld,

Merci beaucoup pour ton code. Il marche du tonnerre !! Excellent.
En effet, plus qu'à mettre les separateurs demandés et ça sort en parfait xls.

Encore merci pour ce sacré coup de main

cool

Bonne soirée

Joyce