importer un fichier avec un nom variable en fonction de la date
Bonjour,
Voila je voudrais ouvrir et importer la feuille d'un classeur dans un nouveau classeur.
Jusque là j'y suis arrivée, voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Sub Bouton1_Clic()
Dim wkDest As Workbook ' Classeur destinataire
'j'ouvre le résultat de Pégase
Set wkDest = Application.Workbooks.Open("C:\projets\test.csv")
' voir pour appeler un fichier avec la date du jour
'Je copie les données
wkDest.Sheets("test").Cells.Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
'ferme le fichier
wkDest.Close True
End Sub |
Par contre, mon fichier change chaque jour de nom et contient la date + heure (fixe 9h). C'est à dire qu'aujourd'hui il se nomme "test_201406160900.csv", demain il se nommera "test_201406170900.csv".
Comment faire dans ma macro pour inclure cette variable au nom du fichier que je dois ouvrir?
Merci de votre aide,
