Importation fichier csv et date

**jerome94** · 05/11/2012, 14h57

Bonjour à tous,

Je viens de faire une partie de code pour transformer un csv en fichier Excel mise en forme.
Par contre à un moment il y a des dates et celle-ci sont parfois bien au format européen mais d'autres sont au format américain et je ne vois pas trop ce que je peux faire.

Je vous joins le 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
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
Sub Importer_csv()
 
On Error Resume Next
Const Separateur = ","                  'type de séparateur
Dim Tableau() As String                   'Tableau pour récupérer les valeurs entre séparateur du fichier csv
Dim i As Integer, Cmpt As Integer       'Pour les compteurs des boucles qui vont faire les lignes et les colonnes des cellules du fichiers Excel
Dim LigneCSV As String                  'Pour enregistrer les lignes CSV
Dim Fichier As Variant                  'Emplacement du fichier CSV à importer
 
Sheets("Feuil1").Cells.Clear            'Effacer la feuille Feuil1 avant l'importation du CSV
ChDir ThisWorkbook.Path & "\"
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
 
'Format des cellules impératif d'avoir du texte sur la colonne 2
'Format standard ensuite car sinon les qtés de manière aléatoire peuvent être au format date
'Worksheets("Feuil1").Cells.Select
'Worksheets("Feuil1").Selection.NumberFormat = "General"
'Worksheets("Feuil1").Columns("B:B").Select
'Worksheets("Feuil1").Selection.NumberFormat = "@"
 
If Fichier <> False Then
Application.ScreenUpdating = False
Open Fichier For Input As #1                'Ouverture du fichier CSV à la ligne #1
Cmpt = 0                                    'l'écriture de l'importation commence à la ligne cmpt + 1
Do While Not EOF(1)                         'Faire tant que je ne suis pas à la dernière ligne
    Line Input #1, LigneCSV                 'Affectation de la ligne CSV à LigneCSV
    Tableau = Split(LigneCSV, Separateur)   'Ecriture du CSV dans le tableau
 
    Cmpt = Cmpt + 1
    For i = 0 To UBound(Tableau)
        If Cmpt = 1 Then
        Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@") 'Ecriture du CVS dans la feuille Excel en démarant à ligne 1 et colonne 2
        Else
        Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@")
        End If
    Next i
Loop
Close #1
Application.ScreenUpdating = True
Else
Exit Sub
End If
 
'Colonne largeur automatique sur toutes les colonnes
Cells.EntireColumn.AutoFit
 
'Dernière ligne de la colonne 2 donc "B"
With ThisWorkbook.Worksheets("Feuil1")
DernièreLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
 
'Insertion de lignes
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
'Boucle pour recopier le symbole dans la colonne 1
For j = 1 To DernièreLigne - 1
    'Sheets("Feuil1").Cells(j * 12, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 1, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 2, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 3, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 4, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 5, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 6, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 7, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 8, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 9, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 10, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 11, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12, 2).ClearContents
    'Sheets("Feuil1").Cells(j * 12, 1).ClearContents
Next j
 
'Suppression des lignes inserées
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Delete Shift:=xlUp
 
 
End Sub

J'ai aussi mis un fichier Excel avec la source csv et le résultat de l'import dans lequel j'ai mis les dates en jaune qui sont male écrite.

En vous remerciant par avance de votre aide

**Daniel.C** · 06/11/2012, 10h57

Bonjour,

Essaie :

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
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
Sub Importer_csv()
 
On Error Resume Next
Const Separateur = ","                  'type de séparateur
Dim Tableau() As String                   'Tableau pour récupérer les valeurs entre séparateur du fichier csv
Dim i As Integer, Cmpt As Integer       'Pour les compteurs des boucles qui vont faire les lignes et les colonnes des cellules du fichiers Excel
Dim LigneCSV As String                  'Pour enregistrer les lignes CSV
Dim Fichier As Variant                  'Emplacement du fichier CSV à importer
 
'Sheets("Feuil1").Cells.Clear            'Effacer la feuille Feuil1 avant l'importation du CSV
Sheets("Feuil1").Cells.Clear
ChDir ThisWorkbook.Path & "\"
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
 
'Format des cellules impératif d'avoir du texte sur la colonne 2
'Format standard ensuite car sinon les qtés de manière aléatoire peuvent être au format date
'Worksheets("Feuil1").Cells.Select
'Worksheets("Feuil1").Selection.NumberFormat = "General"
'Worksheets("Feuil1").Columns("B:B").Select
'Worksheets("Feuil1").Selection.NumberFormat = "@"
 
If Fichier <> False Then
Application.ScreenUpdating = False
Open Fichier For Input As #1                'Ouverture du fichier CSV à la ligne #1
Cmpt = 0                                    'l'écriture de l'importation commence à la ligne cmpt + 1
Do While Not EOF(1)                         'Faire tant que je ne suis pas à la dernière ligne
    Line Input #1, LigneCSV                 'Affectation de la ligne CSV à LigneCSV
    Tableau = Split(LigneCSV, Separateur)   'Ecriture du CSV dans le tableau
 
    Cmpt = Cmpt + 1
    For i = 0 To UBound(Tableau)
        If Cmpt = 1 Then
        Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@") 'Ecriture du CVS dans la feuille Excel en démarant à ligne 1 et colonne 2
        ElseIf IsDate(Tableau(i)) Then
            Sheets("Feuil1").Cells(Cmpt, i + 2) = DateValue(Tableau(i))
        Else
            Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@")
        End If
    Next i
Loop
Close #1
Application.ScreenUpdating = True
Else
Exit Sub
End If
 
'Colonne largeur automatique sur toutes les colonnes
Cells.EntireColumn.AutoFit
 
'Dernière ligne de la colonne 2 donc "B"
With ThisWorkbook.Worksheets("Feuil1")
DernièreLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
 
'Insertion de lignes
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
'Boucle pour recopier le symbole dans la colonne 1
For j = 1 To DernièreLigne - 1
    'Sheets("Feuil1").Cells(j * 12, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 1, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 2, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 3, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 4, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 5, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 6, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 7, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 8, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 9, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 10, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 11, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12, 2).ClearContents
    'Sheets("Feuil1").Cells(j * 12, 1).ClearContents
Next j
 
'Suppression des lignes inserées
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Delete Shift:=xlUp
 
 
End Sub

**jerome94** · 06/11/2012, 13h00

Pour les dates cela fonctionne très bien par contre maintenant c'est la partie nombre qui se transforme en heure.

Cela doit venir du fait que mes nombres sont de la forme suivante 3.0 dans le fichier csv (export d'un ERP) pour le nombre entier de 3.

Dans ces données j'ai trois formats en fait de la date où il y avait le problème de départ, des nombres entiers qui finissent tous par .0 et du texte partout ailleurs.

As-tu une idée pour cette histoire de nombre ?

Merci par avance

**Daniel.C** · 06/11/2012, 13h17

Oups, j'avais oublié :

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
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
Sub Importer_csv()
 
On Error Resume Next
Const Separateur = ","                  'type de séparateur
Dim Tableau() As String                   'Tableau pour récupérer les valeurs entre séparateur du fichier csv
Dim i As Integer, Cmpt As Integer       'Pour les compteurs des boucles qui vont faire les lignes et les colonnes des cellules du fichiers Excel
Dim LigneCSV As String                  'Pour enregistrer les lignes CSV
Dim Fichier As Variant                  'Emplacement du fichier CSV à importer
 
'Sheets("Feuil1").Cells.Clear            'Effacer la feuille Feuil1 avant l'importation du CSV
Sheets("Feuil1").Cells.Clear
ChDir ThisWorkbook.Path & "\"
Fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
 
'Format des cellules impératif d'avoir du texte sur la colonne 2
'Format standard ensuite car sinon les qtés de manière aléatoire peuvent être au format date
'Worksheets("Feuil1").Cells.Select
'Worksheets("Feuil1").Selection.NumberFormat = "General"
'Worksheets("Feuil1").Columns("B:B").Select
'Worksheets("Feuil1").Selection.NumberFormat = "@"
 
If Fichier <> False Then
Application.ScreenUpdating = False
Open Fichier For Input As #1                'Ouverture du fichier CSV à la ligne #1
Cmpt = 0                                    'l'écriture de l'importation commence à la ligne cmpt + 1
Do While Not EOF(1)                         'Faire tant que je ne suis pas à la dernière ligne
    Line Input #1, LigneCSV                 'Affectation de la ligne CSV à LigneCSV
    Tableau = Split(LigneCSV, Separateur)   'Ecriture du CSV dans le tableau
 
    Cmpt = Cmpt + 1
    For i = 0 To UBound(Tableau)
        If Cmpt = 1 Then
        Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@") 'Ecriture du CVS dans la feuille Excel en démarant à ligne 1 et colonne 2
        ElseIf IsNumeric(Tableau(i)) Then
            Sheets("Feuil1").Cells(Cmpt, i + 2) = CInt(Tableau(i))
        ElseIf IsDate(Tableau(i)) Then
            Sheets("Feuil1").Cells(Cmpt, i + 2) = DateValue(Tableau(i))
        Else
            Sheets("Feuil1").Cells(Cmpt, i + 2) = Format(Tableau(i), "@")
        End If
    Next i
Loop
Close #1
Application.ScreenUpdating = True
Else
Exit Sub
End If
 
'Colonne largeur automatique sur toutes les colonnes
Cells.EntireColumn.AutoFit
 
'Dernière ligne de la colonne 2 donc "B"
With ThisWorkbook.Worksheets("Feuil1")
DernièreLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
 
'Insertion de lignes
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
'Boucle pour recopier le symbole dans la colonne 1
For j = 1 To DernièreLigne - 1
    'Sheets("Feuil1").Cells(j * 12, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 1, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 2, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 3, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 4, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 5, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 6, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 7, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 8, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 9, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 10, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12 + 11, 1) = Sheets("Feuil1").Cells(j * 12, 2)
    Sheets("Feuil1").Cells(j * 12, 2).ClearContents
    'Sheets("Feuil1").Cells(j * 12, 1).ClearContents
Next j
 
'Suppression des lignes inserées
Worksheets("Feuil1").Select
Rows("1:5").Select
Selection.Delete Shift:=xlUp
 
 
End Sub

**jerome94** · 06/11/2012, 15h18

Ok je viens de faire le test et j'ai toujours le même résultat avec ces chaînes de caractère (exemple 3.0) qui ne sont pas pris comme des nombres entiers mais des heures.

Et même pire quand je fais un format de cellule et que je passe en standard ou en nombre cela me met 0 au lieu des vrais valeurs initiales.

du coup le rajout ne fonctionne pas

**Daniel.C** · 06/11/2012, 15h24

Regarde le classeur joint. Ca peut venir du fichier csv. Poste-le en retour.

Importation fichier csv et date [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager