Discussion :

[Aiyolia]

Bonjour,

j'ai un fichier excel qui dispose d'une macro pour importer un fichier CSV et en copier les données, j'ai trouvé un très bon code sur ce site pour pouvoir le faire.

Toutefois ce code, après avoir splité les données du CSV sur le fichier source ne copie que la première colonne sur mon fichier cible et pas toutes les autres colonnes du CSV file.

Une adaptation est-elle à fournir au code ou quelque chose à modifier ? Je suis preneur de tout conseil.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub csvImport()
Dim Wbcsv As Workbook
Dim Fichier As String, Chemin As String
Dim LastLig As Long, NewLig As Long
Dim c As Range
Dim Tablo
Const Sep As String = ","
 
Application.ScreenUpdating = False                       'Inhibe la mise à jour affichage
With Application.FileDialog(msoFileDialogFolderPicker)
   .Show
   If .SelectedItems.Count = 1 Then Chemin = .SelectedItems(1)
End With
 
If Chemin <> "" Then
   Chemin = Chemin & "\"
   Fichier = Dir(Chemin & "*.csv")                       'Le premier fichier csv trouvé
   Do While Fichier <> ""                                'on fait une boucle jusqu'à ce qu'on ne trouve plus de fichier csv
      Set Wbcsv = Workbooks.Open(Chemin & Fichier)       'On ouvre le fichier csv qu'on affecte à la variable Wbcsv
      With Wbcsv.Sheets(1)
         LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row  'LastLig est la dernière ligne remplie du fichier csv ouvert
      End With
      With ThisWorkbook.Worksheets("FFPOS")
         For Each c In Wbcsv.Sheets(1).Range("A2:A" & LastLig)   'Pour chaque cellule de A2:Axxx
            NewLig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1   'la première cellule vide de la colonne 1 de Feuil1 de ce classeur
            Tablo = Split(c.Value, Sep)                     'On sépare les données par rapport au séparateur (ici le point virgule)
            .Range(.Cells(NewLig, 1), .Cells(NewLig, UBound(Tablo) + 1)).Value = Tablo   'on copie
         Next c
      End With
      Wbcsv.Close                                        'On ferme le fichier csv
      Fichier = Dir()                                    'on cherche le fichir csv suivant
   Loop                                                  'on reboucle
End If
End Sub

Si je n'ai pas été clair, merci de m'en faire part j'essayerais de donner le plus de détails possibles.

[mercatog]

Apparemment rien d'anormal (je me vois dedans)

Peux tu donner un exemple (une ligne) de ton csv?

[vinc_bilb]

Bonjour,

Code :

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

For Each c In Wbcsv.Sheets(1).Range("A2:A" & LastLig)   'Pour chaque cellule de A2:Axxx

donc, pourmoi, ça semble normal que ça ne copie que la 1ere colonne, non?

[Marc-L]

Bonjour,

comme copier/coller n'est pas coder, utiliser donc un code ne correspondant pas strictement au besoin …

Qui plus est, pour un fichier csv il suffit juste de l'ouvrir normalement pour qu'il soit importé
et ce sans ligne de code pour peu qu'il respecte la norme nationale telle que paramétrée dans Windows.

S'il ne respecte pas la norme, le renommer temporairement en .txt et l'ouvrir :
l'Assistant d'importation apparaît, il suffit de juste bien répondre lors de ses différentes étapes !
Et une fois l'opération manuelle réussie, s'il y a vraiment besoin d'une automatisation, il suffit juste d'activer
l'Enregistreur de macro et de réitérer l'opération manuelle : une base de code est livrée sur un plateau !

Et pour ceux sachant lire, voir dans l'aide VBA interne - tout y est déjà ! - l'aide de la méthode Workbooks.Open

comme celle de Workbooks.OpenText entre autres ! (dont QueryTable pour moi le meilleur choix ici …)

Si l'auteur de ce code avait consulté l'aide VBA (Open comme OpenText) pourtant à portée de clic,
il n'aurait même pas eu besoin de Split ‼

Bref, il y a différentes solutions et déjà présentées dans les discussions de ce forum …
Le découpage par Split étant plutôt réservée aux utilisateurs avancés pour des cas spéciaux.

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Invité]

Code :

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

.Cells(NewLig, 1).Resize(0,UBound(Tablo) )=Tablo 'on copie

[Menhir]

Ca ressemble à un problème de séparateur.
Il faut savoir que Excel en français utilise ";" comme séparateur alors que VBA (fidèle à la version anglophone) utilise ",".

Personnellement, pour m'affranchir de ce problème, j'ouvre systématiquement les CSV avec Workbooks.OpenText (comme le suggère Marc).
Ainsi, je suis sûr du séparateur utilisé (entre autres). Plus compliqué mais plein de paramètres intéressants.
https://msdn.microsoft.com/fr-fr/lib.../ff837097.aspx

[Invité]

https://www.developpez.net/forums/d1...l/#post8992906

[Aiyolia]

Hello,

merci à tous pour vos retours, et j'ai effectivement trouvé la solution grâce à vos commentaires et retours.

J'ai complètement remove la partie split qui, effectivement, n'était pas forcément nécessaire dans ce cas et aurait mérité que j'y réfléchisse plus en profondeur.

Pour ce qui est du reste, je m'efforce au maximum de fouiller dans le forum, les topics et les tutos existants afin de poser le moins de questions possibles qui pourraient faire doublons sur le forum.

Désolé si ça a fait doublon, ce n'était pas mon intention, et je ne fais pas de copier coller de code, ça n'a aucun intérêt pour ma compréhension personnelle et mon apprentissage sur VBA qui ne fait que débuter. En l'occurrence c'est juste que le code matchait parfaitement pour mes attentes du début.

Au cas ou je repost le code que j'utilise si ça intéresse qq'un :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub csvImport()
Dim Wbcsv As Workbook
Dim Fichier As String, Chemin As String
Dim LastLig As Long, NewLig As Long
Dim c As Range
Dim Tablo
Const Sep As String = ","
 
Application.ScreenUpdating = False                       'Inhibe la mise à jour affichage
With Application.FileDialog(msoFileDialogFolderPicker)
   .Show
   If .SelectedItems.Count = 1 Then Chemin = .SelectedItems(1)
End With
 
If Chemin <> "" Then
   Chemin = Chemin & "\"
   Fichier = Dir(Chemin & "*.csv")                       'Le premier fichier csv trouvé
    Set Wbcsv = Workbooks.Open(Chemin & Fichier)       'On ouvre le fichier csv qu'on affecte à la variable Wbcsv
    With Wbcsv.Sheets(1)
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row  'LastLig est la dernière ligne remplie du fichier csv ouvert
    End With
    With ThisWorkbook.Worksheets("FFPOS")
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("OrangeIsTheNewMacro.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
      End With
      Wbcsv.Close                                        'On ferme le fichier csv
End If
End Sub