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 : Sélectionner tout - Visualiser dans une fenêtre à part
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