Récupération valeurs dans CSV

Bonjour à tous,
Je débute dans le VB et pour mon travail j'ai besoin de faire un peu de VB

J'ai besoin de récupérer des valeurs dans un fichier CSV pour ensuite les copier dans un fichier xls (tout en les classant)

Mon problème est que quelle que soit la méthode utilisée pour l'ouverture de mon fichier CSV, je n'arrive pas à récupérer les colonnes de façon séparées : je n'aie qu'une colonne avec tous le texte et les séparateurs.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Copier()   Dim Bilan As Workbook Dim oMelangeur As Worksheet, oLigne As Worksheet     Set Bilan = ThisWorkbook Set sMelangeur = Bilan.Worksheets(1) Set sLigne = Bilan.Worksheets(2)   Workbooks.OpenText Filename:="D:\Test\Melangeur.csv", Semicolon:=True   'Workbooks.Open Filename:="D:\Test\Melangeur.csv"   'Range("A2:G2").Copy Destination:=sMelangeur.Range("B5:H5")     End Sub

---

Avec les deux méthodes d'ouverture j'obtient le même résultat.
Manque il des paramètres pour OpenText?

En attente de votre réponse (très impatient d'en apprendre plus)!!
Merci d'avance

Le pb est que le point-virgule n'existe pas en anglais.
Regarde ici, tu as les solutions pour Excel 97 à 2003 ;)
Tu dis ;)

merci beaucoup de ta réponse rapide

maintenant je voudrais faire un copier collé dans une plage en utilisant une valeur qui m'indique la dernière ligne de mon tableau :

Code:

---

1 2 3 4 5 6 7 8 9 10

MaxLigne = Range("A1").End(xlDown).Address MaxLigne = Range(MaxLigne).Row Ligne_Dest = 5   For Ligne_Orig = 2 To MaxLigne   Range("A & Ligne_Orig", "G & Ligne_Orig").Copy Destination:=sMelangeur.Range("B & Ligne_Dest", "H & Ligne_Dest") Ligne_Dest = Ligne_Dest + 1   Next Ligne_Orig

---

Mais apparemment il n'aime pas trop la façon dont je copie.
Une idée

j'ai résolu mon problème en codant la boucle ainsi :

Code:

---

1 2 3 4

For Ligne_Orig = 2 To MaxLigne Ligne_Dest = Ligne_Dest + 1 Range("A" & Ligne_Orig, "G" & Ligne_Orig).Copy Destination:=sMelangeur.Range("B" & Ligne_Dest) Next Ligne_Orig

---

Merci encore pour ton aide qui m'as fait gagner un temps très précieux

Il est d'usage, ici, lorsqu'on a obtenu réponse à sa question, de cliquer sur le bouton :resolu:, en bas de discussion.

Merci