import fichier nom variable

[mrjim80]

bonjour,
est ce que quelqu'un connait comment faire pour importé un fichier texte avec un NOM-080908 le numero derriere le NOM est la date de la veille. ou sinon importé un fichier qui prendrait le dernier fichier modifié dans un repertoire donnée.

l'import en lui meme marche mais je n'ai pas envie de modifier la macro ou le nom du fichier a chaque fois.

Application.DisplayAlerts = False
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Y:\MONREPERTOIRE\NOM-100908.TXT", _
Destination:=Range("A1"))


Une idée?

 

[tototiti2008]

Re : import fichier nom variable

Bonjour mrjim80,

avec la date d'hier :

Application.DisplayAlerts = False
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Y:\MONREPERTOIRE\NOM-" & Format(Date-1,"DDMMYY") & ".TXT", _
Destination:=Range("A1"))

 

[mrjim80]

Re : import fichier nom variable

impec t'es trop fort tototiti2008!

Merci