Ouvrir fichier csv
Résolu
Deudeu79
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
Deudeu79 Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
Deudeu79 Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
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à
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,
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,
A voir également:
- Vba ouvrir un fichier csv avec séparateur
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment réduire la taille d'un fichier - Guide
4 réponses
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
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
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
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
Dans un premier temps merci pour ta réponse et le temps que tu y a consacré
L'enregistrement d'une macro pour la conversion des données c'est ce que j'ai fais mais quand je l'exécute à partîr du fichier .csv que je souhaite convertir cela marche parfaitement mais moi je veux ouvrir le fichier puis le convertir tout ça à partîr d'un autre fichier cette fois-ci qui est en .xls mais là il me prend pas en compte la fabulation en séparateur
Cordialement
Le code que j'ai mis à disposition je l'ai testé à partir d'un classeur excel pas du fichier CSV!!!!!!!!!!
Vous avez aussi la possibilite de creer une macro en partant de donnees externes, fichier texte
J'ai tester votre code mais rien n'y fais quand je l'ouvre se toujours les virgule que j'ai comme séparateur et non la tabulation malheureuse
Je te remercie quand même