sélection fichier comprenant la date dans son nom

Bonjour,

Je cherche avec le code suivant à sélectionner et importer un fichier text et à l'importer dans ma feuille active excel.

Problème: le nom du fichier comprend la date.

J'ai codé un truc mais j'ai une erreur.

Quelqu'un peut m'aider svp?

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TestImport()   Dim dateJour As String dateJour = "L:\COMMUN SERVICES\FINANCES\CTRL RISQUES MARCHE\Kondor\archive Courbes\FT_BONDS_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".txt"   Application.ActiveWorkbook.Sheets("Feuil1") _ .OpenText Filename:=dateJour, _ Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True   End Sub

---

Merci d'avance! :ccool:

bonjour

es tu sur du format de la date : JJ_MM_AAAA
le séparateur _ ?
Format français ou anglais la date MM_JJ_AAAA
si le jour es entre 1 et 9 ta date sera 1_5_2012 et non pas 01_05_2012

Utilise format :

Code:

---

Format(date,"jj_mm_aaaa")

---

ou encore :

Code:

---

Format(day(date),"00") & "_" & format(month(date),"00") & "_" & Format(year(date),"0000")

---

[EDIT] Sorry Wilfrid... :) [fin EDIT]

Bonsoir,

Il est possible que le fichier comprenne la date sous format dd_mm_yyyy

Or aujourd'hui, par exemple, ta code renverra 10_4_2012, et pas 10_04_2012.

Au lieu de mettre :

Code:

---

day(date)

---

essaie plutôt :

Code:

---

format(day(date),"00")

---