Pb de lecture de fichier .csv

[tango]

Bonjour au forum.

Sous excel, j'ouvre sans problème les fichiers .csv (séparateur = ";") : je trouve bien chaque champ du fichier dans une colonne du tableur.

Par contre, quand j'essaie de l'ouvrir avec la macro ci-jointe (bonne idée trouvée sur le forum), tous les champs sont en colonne 1.

Quelqu'un saurait-il l'erreur que je commets (un paramétrage absent sans doute...)

Merci d'avance.

Ci-joint ma macro réduite au mini et un petit fichier .csv.

PS : je suis sous XL 2002. La macro complémentaire de conversion des fichiers est cochée.

 

[bonsouarmessieux]

Re : Pb de lecture de fichier .csv

Salut!
essaye avec le code suivant, ça devrait marcher:

Sub boite()

Application.Dialogs(xlDialogOpen).Show "*.csv"
[COLOR="Red"]Worksheets(1).Range("A:A").TextToColumns semicolon:=True[/COLOR]
Application.Dialogs(xlDialogSaveAs).Show "zz.xls"


End Sub

Cordialement

 

[RENAUDER]

Re : Pb de lecture de fichier .csv

Bonjour,
C'est quelque chose de courant

Voici comment je procède

Sub Test()
    FileDonnees = Application.GetOpenFilename("Fichiers Excel (*.csv), *.csv", , "Ouvrir le fichier désiré ...")
    If FileDonnees = "Faux" Then
        End
    Else
        Workbooks.Open Filename:=FileDonnees
        Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
            FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
            Array(5, 1)), TrailingMinusNumbers:=True
    End If
End Sub

 

[tango]

Re : Pb de lecture de fichier .csv

Merci à Bonsouarmessieux et RENAUDER

Vos solutions ont réglé mon pb.