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:
Merci d'avance!
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
Partager