Discussion :

[darkman10]

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?

[Vesta]

Essaie peu etre qqch comme ca...

Code :

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

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

[darkman10]

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

Code :

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

set wbcsv=workbooks.opentext(strcfichier)

[Vesta]

Pas faire un OpenText mais un Open

[darkman10]

merciiiiiiiiii ca marche