import .csv dans plusieurs colonnes

**loncle** · 26/08/2017, 02h24

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.

Merci de votre aide.

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

Invité · 26/08/2017, 04h49

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

Invité · 26/08/2017, 04h49

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 :

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

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

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

**loncle** · 26/08/2017, 11h42

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 )