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!