Discussion :

[pepsister]

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 :

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

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,

[Marc-L]

Bonjour !

Code :

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

1
2
3
Sub Demo()
    MsgBox "test_" & Format$(Date, "yyyymmdd") & "0900.csv"
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …