Discussion :

[lapince72]

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

[ouskel'n'or]

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

[lapince72]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lapince72]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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

Merci