Salut le forum
Tibaldus essaye avec le code suivant
Sub OuvrirCSV()
Name "C:\Excel\Fichier.csv" As "C:\Excel\Fichier.txt"
Workbooks.OpenText Filename:="C:\Excel\Fichier.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Semicolon:=True
End Sub
A te relire, si pas trop tard
Mytå