Probleme sur macro access pour importer fichier CSV

Version imprimable

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:

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.

16/02/2017, 16h16
mercatog

Apparemment rien d'anormal (je me vois dedans)

Peux tu donner un exemple (une ligne) de ton csv?
16/02/2017, 16h20
vinc_bilb

Bonjour,

Code:

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?
16/02/2017, 16h23
Marc-L

Bonjour,

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

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, …
16/02/2017, 16h49
Invité

Code:

.Cells(NewLig, 1).Resize(0,UBound(Tablo) )=Tablo 'on copie
16/02/2017, 17h53
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
16/02/2017, 18h12
Invité

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

Thanks

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 :oops: 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:

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