salut a tous
j'ouvre un fichier dont je veux recuperer les donnees et les copier dans une feuille de mon classeur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
fichierrecup = ActiveWorkbook.name
strfichier = "D:\NAV.csv"
Workbooks.OpenText strfichier
ActiveWorkbook.Sheets(1).Select
Range("A1:BS" & Range("A1").End(xlDown).row).Select
Selection.Copy
Windows(fichierrecup).Activate
Sheets(7).Activate
Range("c2").Select
ActiveSheet.Paste
comment est ce que je peux faire pour fermer ensuite le fichier strfichier?