Importer un fichier CSV dans une nouvelle feuille

[nak]

Bonjour à tous,

J'ai un code qui me permet d'ouvrir un fichier CSV :

Private Sub CommandButton1_Click()

nf = Application.GetOpenFilename("Fichiers Csv,*.csv")
If Not nf = False Then
Workbooks.Open Filename:=nf
End If

End Sub

Celui-ci s'ouvre dans un nouveau classeur.
Moi j'aimerais qu'il soit importé non pas dans un nouveau classeur mais dans une nouvelle feuille de mon classeur actif.
Je voudrais aussi forcer le nom de cette nouvelle feuille.

J'ai essayé Worksheets.Open mais cette fonction ne marche pas...

Vous avez une idée ?

Merci

A+

 

[nak]

Re : Importer un fichier CSV dans une nouvelle feuille

Hi,

Je viens de trouver la solution, il suffi de modifier la ligne avec laquelle on ouvre le fichier :

Set wkb = Workbooks.Open(Filename:=nf, Origin:=xlWindows, Local:=True)

En tout cas merci pour tout. ;-)

A+