Copie .CSV dans une feuille excel.

Version imprimable

Bonjour à tous,
Je suis un très grand débutant en VBA. Je chercher a créer une macro qui me permettrait d'extraire une seule colonne de mon choix d'un fichier csv, de la copier de la coller dans le fichier excel exécutant la macro.
J'ai déjà trouvé un code semblable au mien avec des fonctions en trop. Du coup je n'ai pas besoin d'utiliser tout les fichiers csv contenus dans mon dossier, mais uniquement d'en sélectionner un. Je pense pouvoir réussir à faire ça en continuant mes recherches, j'aurais juste besoin de savoir comment supprimer la boucle proprement.

Du coup le but du code serait de choisir délimiter le tableau, cependant en modifiant le code je n'arrive pas à choisir la colonne que je veux copier et ou je veux la coller. En effet je comprend grossièrement le code mais pas suffisamment pour le modifier correctement et proprement.
Si vous pouviez me guider un petit peu ça serait super sympa, Merci d'avance !

Code qui fonctionne :

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
35
36
37
38
Private Sub CommandButton4_Click()
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
        Name Chemin & Fichier As Replace(Chemin & Fichier, ".csv", ".txt")
        Fichier = Replace(Fichier, ".csv", ".txt")
        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("Feuil1")
            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) - 8)).Value = Tablo  'on copie
            Next c
        End With
        Wbcsv.Close                                                  'On ferme le fichier csv
        Set Wbcsv = Nothing
        Name Chemin & Fichier As Replace(Chemin & Fichier, ".txt", ".csv")
        Fichier = Dir()                                              'on cherche le fichir csv suivant
    Loop                                                             'on reboucle
End If
End Sub

Bonjour,

Une piste avec lecture séquentielle du fichier .csv (explications dans le code) :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Sub Test()
 
    Dim Fichier As String
    Dim Ligne As String
    Dim Tbl()
    Dim I As Long
    Dim NbCol
    Const Sep As String = ";"
 
    'permet le choix d'un fichier csv seulement...
    With Application.FileDialog(msoFileDialogFilePicker)
 
        .Filters.Add "Fichiers csv", "*.csv", 1
        .Show
 
        'si choix effectué
        If .SelectedItems.Count = 1 Then
 
            Fichier = .SelectedItems(1)
 
        'si pas de choix, fin !
        Else
 
            MsgBox "Aucun fichier '.csv' choisi, fin de procédure !"
            Exit Sub
 
        End If
 
    End With
 
    'ouvre le fichier pour compter le nombre de colonnes...
    Open Fichier For Input As #1
 
    Line Input #1, Ligne
 
    'demande le numéro de la colonne à importer
    NbCol = InputBox("Le fichier '" & Dir(Fichier) & "' contient " & UBound(Split(Ligne, Sep)) + 1 & " colonne(s) !" & vbCrLf & _
                     "quel est le numéro de la colonne à importer ?", _
                     "Choix colonne.", 1)
 
    'referme le fichier...
    Close #1
 
    'si non numérique, fin !
    If Not IsNumeric(NbCol) Then
 
        MsgBox "Seulement numérique !"
        Exit Sub
 
    End If
 
    'puis le réouvre afin de revenir au début !
    Open Fichier For Input As #1
 
    'parcour le fichier
    Do While Not EOF(1)
 
        'récup de chaque ligne
        Line Input #1, Ligne
 
        'suppression d'éventuels espaces
        Ligne = Replace(Ligne, """", "")
 
        'stocke dans un tableau seulement les valeurs contenues dans la colonne choisie
        I = I + 1
        ReDim Preserve Tbl(1 To I)
        Tbl(I) = Split(Ligne, Sep)(NbCol - 1)
 
    Loop
 
    'fermeture
    Close #1
 
    'résultat en colonne A de la feuille active
    ActiveSheet.Range(Cells(1, 1), Cells(UBound(Tbl), 1)) = Application.Transpose(Tbl)
 
End Sub

Bonjour,
Je viens d'éxécuter le code qui fait exactement ce que je voulais. Juste un petit détail , la colonne commence à partir de la 43ème ligne, les cellules au dessus étant vide, j'essaye de modifier le code pour commencer à prendre la colonne à partir de la cellule de mon choix.
J'ai essayé en modifiant comme cela :
Code:

1 2 3 I = I + 1 ReDim Preserve Tbl(1 To I - 42) 'redimensionner le tableau pour qu'il contienne moins de ligne Tbl(I + 42) = Split(Ligne, Sep)(NbCol - 1) 'commencer directement la boucle à partir de la ligne que je veux
En tout cas merci beaucoup pour la réponse !

Bonjour,

Citation:

...la colonne commence à partir de la 43ème ligne, les cellules au dessus étant vide...

voici deux possibilités, contrôler si les lignes possèdent une valeur, et démarrer à la ligne 43.
Pour démarrer à la ligne 43 :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
Sub Test()
 
    Dim Fichier As String
    Dim Ligne As String
    Dim Tbl()
    Dim I As Long
    Dim J As Long
    Dim NbCol
    Const Sep As String = ";"
 
    'permet le choix d'un fichier csv seulement...
    With Application.FileDialog(msoFileDialogFilePicker)
 
        .Filters.Add "Fichiers csv", "*.csv", 1
        .Show
 
        'si choix effectué
        If .SelectedItems.Count = 1 Then
 
            Fichier = .SelectedItems(1)
 
        'si pas de choix, fin !
        Else
 
            MsgBox "Aucun fichier '.csv' choisi, fin de procédure !"
            Exit Sub
 
        End If
 
    End With
 
    'ouvre le fichier pour compter le nombre de colonnes...
    Open Fichier For Input As #1
 
    Line Input #1, Ligne
 
    'demande le numéro de la colonne à importer
    NbCol = InputBox("Le fichier '" & Dir(Fichier) & "' contient " & UBound(Split(Ligne, Sep)) + 1 & " colonne(s) !" & vbCrLf & _
                     "quel est le numéro de la colonne à importer ?", _
                     "Choix colonne.", 1)
 
    'referme le fichier...
    Close #1
 
    'si non numérique, fin !
    If Not IsNumeric(NbCol) Then
 
        MsgBox "Seulement numérique !"
        Exit Sub
 
    End If
 
    'puis le réouvre afin de revenir au début !
    Open Fichier For Input As #1
 
    'parcour le fichier
    Do While Not EOF(1)
 
        'récup de chaque ligne
        Line Input #1, Ligne
 
        J = J + 1
 
        If J > 42 Then
 
           'suppression d'éventuels espaces
           Ligne = Replace(Ligne, """", "")
 
           'stocke dans un tableau seulement les valeurs contenues dans la colonne choisie
           I = I + 1
           ReDim Preserve Tbl(1 To I)
           Tbl(I) = Split(Ligne, Sep)(NbCol - 1)
 
        End If
 
    Loop
 
    'fermeture
    Close #1
 
    'résultat en colonne A de la feuille active
    ActiveSheet.Range(Cells(1, 1), Cells(UBound(Tbl), 1)) = Application.Transpose(Tbl)
 
End Sub

si la ligne possède une valeur dans la colonne désirée :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
Sub Test()
 
    Dim Fichier As String
    Dim Ligne As String
    Dim Tbl()
    Dim I As Long
    Dim NbCol
    Const Sep As String = ";"
 
    'permet le choix d'un fichier csv seulement...
    With Application.FileDialog(msoFileDialogFilePicker)
 
        .Filters.Add "Fichiers csv", "*.csv", 1
        .Show
 
        'si choix effectué
        If .SelectedItems.Count = 1 Then
 
            Fichier = .SelectedItems(1)
 
        'si pas de choix, fin !
        Else
 
            MsgBox "Aucun fichier '.csv' choisi, fin de procédure !"
            Exit Sub
 
        End If
 
    End With
 
    'ouvre le fichier pour compter le nombre de colonnes...
    Open Fichier For Input As #1
 
    Line Input #1, Ligne
 
    'demande le numéro de la colonne à importer
    NbCol = InputBox("Le fichier '" & Dir(Fichier) & "' contient " & UBound(Split(Ligne, Sep)) + 1 & " colonne(s) !" & vbCrLf & _
                     "quel est le numéro de la colonne à importer ?", _
                     "Choix colonne.", 1)
 
    'referme le fichier...
    Close #1
 
    'si non numérique, fin !
    If Not IsNumeric(NbCol) Then
 
        MsgBox "Seulement numérique !"
        Exit Sub
 
    End If
 
    'puis le réouvre afin de revenir au début !
    Open Fichier For Input As #1
 
    'parcour le fichier
    Do While Not EOF(1)
 
        'récup de chaque ligne
        Line Input #1, Ligne
 
        'suppression d'éventuels espaces
        Ligne = Replace(Ligne, """", "")
 
        'seulement si une valeur existe
        If Split(Ligne, Sep)(NbCol - 1) <> "" Then
 
           'stocke dans un tableau seulement les valeurs contenues dans la colonne choisie
           I = I + 1
           ReDim Preserve Tbl(1 To I)
           Tbl(I) = Split(Ligne, Sep)(NbCol - 1)
 
        End If
 
    Loop
 
    'fermeture
    Close #1
 
    'résultat en colonne A de la feuille active
    ActiveSheet.Range(Cells(1, 1), Cells(UBound(Tbl), 1)) = Application.Transpose(Tbl)
 
End Sub

09/08/2016, 10h15
FrançoisLouis

ça marche, c'est parfait.
Merci beaucoup pour l'aide ! Bonne journée a tout le monde je passe le topic en résolu :)

EDIT : Oups cela ne marche pas ! J'obtiens l'erreur :l"'indice n'appartiens pas à la sélection" en essayant d’exécuter la macro avec le même fichier mais des données différentes.
Cela pourrait peut être venir du fait que la source du fichier est américaine, et que les données sont séparés par des ";" , mais les dizaine par des "." au lieu des ",". j'ai l'impression que ça bloque ici. En effet le programme détecte 87611 colonnes au lieu des vrai 12 colonnes présentes dans le fichier.
Comment faire du coup ?
10/08/2016, 06h47
Theze
Bonjour,

Quel est le séparateur ? Tu peux modifier la valeur de la constante :
Code:

1 2 Const Sep As String = ";"
10/08/2016, 11h02
FrançoisLouis

1 pièce(s) jointe(s)

En fait les valeurs ont ce type de format:

0.00 ; 1.2 ; 1.5
au lieu de
0,00 ; 1,2 ; 1,5

Du coup même en modifiant la constante de séparation je n'arrive pas à résoudre ce soucis.

Je vais directement envoyer le fichier ça sera plus simple je pense. Je cherche donc à récuperer uniquement les valeurs sous la colonne clear sky GHI qui se trouve en C42.
10/08/2016, 15h33
Theze

Bonjour,

Ce sont les 41 premières lignes qui posent problème !
Si tu les supprimes, et que te enregistres le classeur, quand tu lances la proc il te dis qu'il y a 11 colonnes et l'importation se fait bien sur la colonne choisie !
10/08/2016, 16h09
Marc-L

Bonjour !

Citation:

Envoyé par FrançoisLouis

Du coup même en modifiant la constante de séparation je n'arrive pas à résoudre ce soucis.

En fait ce n'est pas un problème car peu importe le séparateur des données, le séparateur décimal
ni à partir de quelle ligne les données commencent : ce n'est que de la logique enfantine !

Le souci pour moi est de comprendre ce qu'il faut faire ! Dans la présentation initiale, il est question de copier une colonne
mais elle n'est même pas précisée pas plus que sa destination, la raison pour laquelle beaucoup ne sont pas intervenus …
Avec une présentation digne de ce nom, claire & exhaustive, cette discussion aurait été résolue dès le second post !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

Je te propose quelque chose de très très scabreux :?

La procédure :
Le fichier est ouvert, on recherche le dernier # et on supprime tout ce qui se trouve avant et referme le fichier puis le ré-ouvre en écriture en modifiant le nom (le mot "Modifié" est rajouté ce qui a pour effet de créer un second fichier laissant l'original intact) afin de ne pas exécuter une seconde fois la suppression et inscrit le reste mais pour que ça fonctionne, il faut qu'il soit enregistré au bon format donc, on ouvre ce nouveau fichier mais maintenant, avec Excel et on le referme aussitôt en l'enregistrant. A ce moment là, le fichier est sensé être au bon format pour une ouverture afin de récupérer la colonne voulue (avec ton fichier exemple, 11 colonnes)

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
 
Sub Test()
 
    Dim Cls As Workbook
    Dim Fichier As String
    Dim Ligne As String
    Dim Tbl()
    Dim I As Long
    Dim NbCol
    Dim Pos As Long
    Const Sep As String = ";"
 
    'permet le choix d'un fichier csv seulement...
    With Application.FileDialog(msoFileDialogFilePicker)
 
        .Filters.Add "Fichiers csv", "*.csv", 1
        .Show
 
        'si choix effectué
        If .SelectedItems.Count = 1 Then
 
            Fichier = .SelectedItems(1)
 
        'si pas de choix, fin !
        Else
 
            MsgBox "Aucun fichier '.csv' choisi, fin de procédure !"
            Exit Sub
 
        End If
 
    End With
 
    If InStr(Fichier, "Modifié") = 0 Then
 
        'ouvre le fichier pour lecture...
        Open Fichier For Input As #1
 
        Do While Not EOF(1)
 
            Line Input #1, Ligne
 
            'recherche le dernier dièse
            Pos = InStrRev(Ligne, "#")
 
            'supprime tout ce qui se trouve avant
            Ligne = Mid(Ligne, Pos, Len(Ligne) - Pos)
 
        Loop
 
        'referme
        Close #1
 
        'modifie le nom du fichier afin de ne pas refaire cette partie du code
        'ce qui a poue effet de créer un nouveau fichier laissant l'original intact
        Fichier = Left(Fichier, InStrRev(Fichier, ".") - 1) & " Modifié.csv"
 
        'réouvre pour écriture...
        Open Fichier For Output As #1
 
            Print #1, Ligne
 
        'referme à nouveau
        Close #1
 
        'l'ouvre avec Excel puis l'enregistre en csv et le referme
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
 
        Set Cls = Workbooks.Open(Fichier)
        Cls.Save
        Cls.Close
 
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
 
    End If
    'maintenant, récup de la colonne voulue :
 
    'ouvre le fichier pour compter le nombre de colonnes...
    Open Fichier For Input As #1
 
    Line Input #1, Ligne
 
    'demande le numéro de la colonne à importer
    NbCol = InputBox("Le fichier '" & Dir(Fichier) & "' contient " & UBound(Split(Ligne, Sep)) + 1 & " colonne(s) !" & vbCrLf & _
                     "quel est le numéro de la colonne à importer ?", _
                     "Choix colonne.", 1)
 
    'referme le fichier...
    Close #1
 
    'si non numérique, fin !
    If Not IsNumeric(NbCol) Then
 
        MsgBox "Seulement numérique !"
        Exit Sub
 
    End If
 
    'puis le réouvre afin de revenir au début !
    Open Fichier For Input As #1
 
    'parcour le fichier
    Do While Not EOF(1)
 
        'récup de chaque ligne
        Line Input #1, Ligne
 
        'suppression d'éventuels espaces
        Ligne = Replace(Ligne, """", "")
 
        'stocke dans un tableau seulement les valeurs contenues dans la colonne choisie
        I = I + 1
        ReDim Preserve Tbl(1 To I)
        Tbl(I) = Split(Ligne, Sep)(NbCol - 1)
 
    Loop
 
    'fermeture
    Close #1
 
    'résultat en colonne A de la feuille active
    ActiveSheet.Range(Cells(1, 1), Cells(UBound(Tbl), 1)) = Application.Transpose(Tbl)
 
End Sub

10/08/2016, 16h43
FrançoisLouis

Marc-L,
Bonjour , en effet je suis nouveau sur le forum et assez débutant dans ce type de manipulations sur excel. J'ai eu du mal a présenter mon problème et n'ai pas été clair du tout. J'en suis désolé et je ferais mieux à l'avenir. Merci en tout cas pour cet avertissement qui est plus que favorable !

Theze,
Ca marche niquel ! C'est parfait, merci beaucoup pour m'avoir aidé.
Cette fois-ci c'est le vrai résolu !
10/08/2016, 16h53
Marc-L

N'importe quelles données d'un fichier texte sont importables directement en général en moins de 50 lignes de code
sans recourir à un fichier temporaire, voir les nombreux exemples dans les discussions de ce forum !

S tu importes toujours la même colonne, il est plus simple de la spécifier, soit par son numéro d'ordre ou par son nom …

Bonjour.

Il faut toujours s'assurer d'avoir le format de cellule Standard (General) avant d'écrire les valeurs

Code:

1
2
3
4
5
6
7
8
9
10
Sub Numberformat()
 
    Workbooks.Open Filename:="C:\tondossier\irradiation-489cbdac-596a-11e6-9671-b8ca3a6792fc.csv", Local:=True
    Set r = ActiveSheet.UsedRange
    'S'assurer d'avoir le format de cellule Standard avant d'écrire les valeurs
    r.Numberformat = "General"
    r.FormulaLocal = r.Value  
    r.Value = r.Value
 
End Sub