Discussion :

[bilou_12]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(date,"jj_mm_aaaa")

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bifconsult]

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

day(date)

essaie plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(day(date),"00")