Ouvrir fichier csv

Résolu/Fermé
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 - 7 mars 2016 à 16:41
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 - 14 mars 2016 à 09:06
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,

A voir également:

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 mars 2016 à 15:59
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
0
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
8 mars 2016 à 17:42
Bonjours f894009,

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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016
Modifié par f894009 le 9/03/2016 à 08:56
Bonjour,
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
0
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
9 mars 2016 à 11:16
Bonjour,

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
0
Utilisateur anonyme
9 mars 2016 à 09:02
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 9/03/2016 à 09:09
Bonjour,

Meme avec ce parametre, j'ai essaye et marche pas toujours
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 mars 2016 à 09:10
Re,

Deudeu79
Serait-t-il possible d'avoir un fichier csv si sans donnes sensibles
0
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
9 mars 2016 à 11:17
Je vous envoie sa dès que possible
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016
9 mars 2016 à 11:19
Re,
Merci
0
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
10 mars 2016 à 20:24
Voici le fichier que je tente d'ouvrir

https://www.cjoint.com/c/FCktogMF2eY
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016
11 mars 2016 à 08:27
Bonjour,
Je recupere le fichier

A+
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 mars 2016 à 09:04
Re,

fichier avec choix du CSV: https://www.cjoint.com/c/FClidQ1tAif
0
Deudeu79 Messages postés 58 Date d'inscription mercredi 29 avril 2015 Statut Membre Dernière intervention 11 juillet 2016 23
14 mars 2016 à 09:06
Merci beaucoup F894009 cela fonctionne parfaitement
0