import .csv dans plusieurs colonnes

Version imprimable

1 pièce(s) jointe(s)

Bonsoir,

Je ne comprend pas pourquoi lorsque j'importe un .csv , la 1ere ligne se repartie bien dans 3 colonnes distinctes alors que les lignes suivantes restent dans la colonnes "A" ?
J'ai mis "," comme séparateur de liste dans les paramètres du panneau de configuration / région.:calim2:

Merci de votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub LireFichierTexte(ByVal fichier)
'------------------------ajouter la reference MICROSOFT SCRIPTING RUNTIME------------------------------------------------------
' [Developpeur][Outils][Réferences]
    Dim oFSO As Scripting.FileSystemObject
    Dim oFl As Scripting.File
    Dim oTxt As Scripting.TextStream
    Dim i As Integer
    Filename = Environ("HOMEPATH") & "\Documents\" & fichier
    Set oFSO = New Scripting.FileSystemObject
    Set oFl = oFSO.GetFile(Filename)
    Set oTxt = oFl.OpenAsTextStream(ForReading)
    'Lire
    While Not oTxt.AtEndOfStream
        i = i + 1
        Range("A" & i) = oTxt.ReadLine
        'convertir en colonne
        Application.DisplayAlerts = False
        Range("A" & i).TextToColumns , DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Comma:=True, Other:=False, FieldInfo _
            :=Array(Array(1, 1)), TrailingMinusNumbers:=True
        Application.DisplayAlerts = True
    Wend
End Sub

26/08/2017, 04h49
Invité

Bonjour

Je pense que cela vient de là : TextQualifier:=xlDoubleQuote

Il ne faudrait rien mettre comme délimiteur de texte, car ton fichier n'a pas une structure classique.

Philippe

Citation:

Envoyé par loncle

Bonjour,

C'est normal, les chaînes de texte sont encadrées par des guillemets. Le code ci-dessous les supprime :

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
 
Sub LireFichierTexte(ByVal Fichier As String)
'------------------------ajouter la reference MICROSOFT SCRIPTING RUNTIME------------------------------------------------------
' [Developpeur][Outils][Réferences]
    Dim oFSO As Scripting.FileSystemObject
    Dim oFl As Scripting.File
    Dim oTxt As Scripting.TextStream
    Dim i As Integer
    Dim CheminComplet As String  ' Filename est un nom réservé, il ne faut pas l'utiliser.
    Dim MaChaine As String
 
    CheminComplet = Environ("HOMEPATH") & "\Documents\" & Fichier
    Set oFSO = New Scripting.FileSystemObject
    Set oFl = oFSO.GetFile(CheminComplet)
    Set oTxt = oFl.OpenAsTextStream(ForReading)
    'Lire
    While Not oTxt.AtEndOfStream
        i = i + 1
        Range("A" & i) = oTxt.readline ', 2, Len(oTxt.readline) - 2)
        'convertir en colonne
        MaChaine = Mid(Range("A" & i), 2, Len(Range("A" & i)) - 4)
        Range("A" & i) = MaChaine
        Application.DisplayAlerts = False
        Range("A" & i).TextToColumns , DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Comma:=True, Other:=False, FieldInfo _
            :=Array(Array(1, 1)), TrailingMinusNumbers:=True
        Application.DisplayAlerts = True
       ' ExtraireLesChampsDeLaColonneC Range("C" & i)  ' Supprimer la cote ' pour extraire les champs contenus dans la colonne C
    Wend
 
    Set oFSO = Nothing
    Set oFl = Nothing
    Set oTxt = Nothing
 
End Sub

Si vous souhaitez transformer les informations contenues dans la colonne C en champs, utilisez le code ci-dessous et activez la ligne correspondant à ce code dans la procédure ci-dessus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ExtraireLesChampsDeLaColonneC(ByVal CelluleChaine As Range)
 
Dim MatriceChaine As Variant
Dim J As Integer
 
    MatriceChaine = Split(CelluleChaine.Value, "-")
    If UBound(MatriceChaine, 1) > 0 Then
        For J = LBound(MatriceChaine) To UBound(MatriceChaine)
            CelluleChaine.Offset(0, J + 1) = MatriceChaine(J)
        Next J
    End If
End Sub

26/08/2017, 11h42
loncle

Bonjour,

Merci pour votre aide. Effectivement, je n'avais pas remarqué (entre autre) que le fichier au format .txt comportait des "guillemets" qui n'apparaissent pas lorsqu'on change le type de fichier pour du .csv . C'est surprenant ce phénomène
Est ce que quelqu'un peut m'expliquer?

Merci pour le rappel aux bonnes règles (ByVal As ...... pour Filename et Nothing ) :)
26/08/2017, 11h45
Invité

Citation:

Envoyé par loncle

Est ce que quelqu'un peut m'expliquer?

Non pour ma part, il faudrait voir comment le fichier a été généré.
26/08/2017, 12h34
loncle

Merci pour le temps passé. Je vais poursuivre mes investigations. J'ai eu la réponse à ma question.