Ouvrir fichier csv Résolu

Question

Bonjour tout le monde, 

Je souhaite ouvrir un Fichier .csv en VBA, avec comme séparateur la tabulation. Du coup j'utilise ce code là
    Workbooks.OpenText Filename:=Chemin & FichierVapeurEvapo, _    Comma:=False, Space:=False, Tab:=True, Semicolon:=False

Mais cela me prend comme séparateur la virgule or pourtant je l'ai mis à False. Du coup j'ai été dans les paramètre Windows, pour savoir quel est le séparateur par défaut et c'est bien le point virgule. 

Pouvez vous m'aidez s'il vous plait car je ne vois pas d'où vient le problème 

je vous remercie 

Cordialement,

Configuration: Windows 7 / Mozilla 11.0

f894009 · Answer

Bonjour,

Normalement le separateur tab est plutot pour les fichiers TXT pas CSV.

Mais il y a moyen de palier a cette bizarerie:

macro faite avec l'enregistreur de macro, ouveture du fichier et conversion des donnees avec tab en separateur

Sub Macro1()
'
' Macro1 Macro
'

'
    Workbooks.Open Filename:="D:\_ACSV1\Classeur1.csv"
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
    Windows("Classeur1").Activate
End Sub

Utilisateur anonyme · Answer

Bonjour

D'après la doc, pour que le type de séparateur (Tab, Semicolumn…) soit pris en compte, DataType doit être définie sur xlDelimited :
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbooks.opentext?redirectedfrom=MSDN

f894009 · Answer

Re,

Deudeu79
Serait-t-il possible d'avoir un fichier csv si sans donnes sensibles

f894009 · Answer

Re,

fichier avec choix du CSV: https://www.cjoint.com/c/FClidQ1tAif

Ouvrir fichier csv

4 réponses

Discussions similaires

Newsletters