récuperer des données d'un fichier .csv

Bonjours,
Voici un code qui me permet d'ouvrir un fichier csv et d'en remplir la
derniere ligne.


chemin = ThisWorkbook.Path & "Historique.csv"
a = FreeFile
Open chemin For Append As #a
Print #1, Range("A200").value
Close

Je souhaite maintenant récupérer la dernière ligne de mon fichier csv pour
la remettre dans une cellule de mon classeur.



merci d'avance

Bonjour.
Essaie :

Sub test()
chemin = ThisWorkbook.Path & "Historique.csv"
a = FreeFile
Open chemin For Input As #a
Do While Not EOF(a)
Line Input #a, enrgt
Loop
Close
[A200] = enrgt
End Sub

Cordialement.
Daniel
"kolann" <kolann@discussions.microsoft.com> a écrit dans le message de news:
2698EFD6-0C7B-4B4C-BD8D-71FDD6B55E75@microsoft.com...

Bonjours,
Voici un code qui me permet d'ouvrir un fichier csv et d'en remplir la
derniere ligne.


chemin = ThisWorkbook.Path & "Historique.csv"
a = FreeFile
Open chemin For Append As #a
Print #1, Range("A200").value
Close

Je souhaite maintenant récupérer la dernière ligne de mon fichier csv pour
la remettre dans une cellule de mon classeur.



merci d'avance