[VBA-E]fermer un fichier csv

salut a tous
j'ouvre un fichier dont je veux recuperer les donnees et les copier dans une feuille de mon classeur

Code:

---

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?

Essaie peu etre qqch comme ca...

Code:

---

1 2 3 4 5 6 7

<a href="http://www.developpez.net/forums/" target="_blank">'Déclaration des variables</a> <a href="http://www.developpez.net/forums/" target="_blank">Dim</a> wbCSV <a href="http://www.developpez.net/forums/" target="_blank">As</a> Excel.Workbook <a href="http://www.developpez.net/forums/" target="_blank">'Classeur Excel</a>   <a href="http://www.developpez.net/forums/" target="_blank">'Ouverture d'un fichier Excel</a> <a href="http://www.developpez.net/forums/" target="_blank">Set</a> wbCSV = Workbooks.Open(<a href="http://www.developpez.net/forums/" target="_blank">"C:\MonFichierCSV.csv"</a>) wbCSV wbCSV.close

---

ca marche pas il n'ouvre pas le fichier strfichier il me dis "fonction ou variable attendue" sur la ligne

Code:

---

set wbcsv=workbooks.opentext(strcfichier)

---

Pas faire un OpenText mais un Open

merciiiiiiiiii ca marche:lol: