Recupere CSV dans XLS

Salut a tous,

Voila une macro pour ouvrir mon fichier CSV a partir de VBA:

Code:

---

1 2 3 4 5 6 7 8

Sub   NomFic = Application.GetOpenFilename(, , "Extractions Données") If NomFic <> False Then Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True End If   End Sub

---

J'aimerais pouvoir récupérer les données de ce fichier qui vient de s'ouvrir, avec une ligne du style:

Code:

---

1 2	Woorkbook(NomFic).Worksheets(1).Range("A1:AA10).Select Selction.copy

---

... Mais cela ne marche pas, c'est au niveau du NomFic
En réalité, j'aurais besoin de copier les données du CSV pour les Coller dans mon XLS.
Quelqu'un aurait il la syntaxe correct pour le fichier CSV dans VBA.

Merci

Bonjour,
Sauf erreur de ma part la ligne 4, de ton premier code n'est pas correcte.
Ce n'est pas If NomFic <> False Then mais if NomFic <> "" Then ou If Len(NomFic) Then
Et pour être sûr de n'avoir que les fichiers suffixés csv

Code:

---

1 2 3 4 5 6 7 8 9

' Sub Test() Dim NomFic As String NomFic = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv") ' If nonFin <> "" Then If Len(NomFic) Then Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True End If End Sub

---