Excel-csv tabulation au lieu de point virgule [Résolu/Fermé]

Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
- - Dernière réponse : gbinforme
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
- 8 juin 2009 à 18:50
Bonjour à tous,

J'ai écumé les forum mais je suis toujours à cours d'idée.
A partir d'un programme VB Excel, j'écris un fichier .csv. QUand je demande l'utilisation du séparateur virgule, je ne rencontre pas de problème. Par contre, lorsque je demande le séparateur point virgule, alors le csv utilise des tabulations et non des points virgules:

export avec le séparateur virgule
colonne A
donnee1,donne2,donnee3,donnee4...

export avec le séparateur point virgule
colonne A colonne B colonne C colonne D
donnee1 donnee2 donnee2 donnee2

Dans les forums, il est conseillé d'aller vérifier le spérateur des options régionales. Sur mon PC, c'ets bien le poin virgule. Il est égalemetn conseillé d'ajouter Local:=true lors de la sauvegarde, mais mon code est différent.
Je ne fais pas "worbook save as..." mais un "Open ..., puis print", donc je ne peux pas mettre le "local".

En cherchant plus loin, je me suis rendue que même faire la manipulation toute simple "Enregistrer sous / csv (séparateur point-virgule)", j'ai le même résultat qu'avec mon code: des tabulations et non des points-virgules!

Quelqu'un peut-il me donner un coup de main? Avez-vous déjà rencontré ce problème?
Ludivine
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3746
1
Merci
bonjour

Si avec "print" tu utilises point virgule tu ne peux pas obtenir une tabulation dans ton fichier.

Il doit y avoir une erreur de syntaxe dans ton code et c'est toujours très difficile à voir pour celui qui l'a codé : si tu nous mettait les quelques lignes de codes où tu écris le point-virgule, nous pourrions peut-être t'aider.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 64336 internautes nous ont dit merci ce mois-ci

Ludivine50
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
7 -
Bonjoue gbinforme, merci pour ta réponse,

voisi un bout de mon code:

sub TEST()
call EXPORT_CSV
End sub



Sub EXPORT_CSV()

Dim LIGNE_ECRITE As String
Dim CODE As String
Dim SOCIETE As String
Dim CODE2 As String
Dim CODE3 As String

Sheets("FEUILLE_TEST").Select

Open "\\............................\.....csv" For Output As #1 

Print #1, "CODE;SOCIETE;CODE2;CODE3"

Range("B2").Select

Do While ActiveCell.Value <> ""
    
        CODE = ActiveCell.Value 
        SOCIETE = ActiveCell.Offset(0, 1).Value 
        CODE2 = ActiveCell.Offset(0, 2).Value 
        CODE3 = ActiveCell.Offset(0, 3).Value 
        
        ActiveCell.Offset(1, 0).Select  'Passage à la ligne suivante
    
        LIGNE_ECRITE = CODE + ";" + SOCIETE + ";" + CODE2 + ";" + CODE3
 
        Print #1, LIGNE_ECRITE
    
Loop

Close #1

Range("B2").Select

End Sub
Ludivine50
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
7 > Ludivine50
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
-
Qu'en pensez-vous? Moi je suis à court d'idées.
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3746
1
Merci
bonjour

Pourquoi chercher simple quand on peut se compliquer?

C'est souvent comme cela quand on part dans une fausse direction mais nous sommes très heureux d'avoir solutionné ton problème qui n'existait pas.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 64336 internautes nous ont dit merci ce mois-ci

Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3746
0
Merci
bonjour

Remplace tes "+" par "&" cela devrait être mieux.
Ludivine50
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
7 -
J'ai fait un test: ne pas fermer les fichiers après avoir fait mon écriture en csv.
Que j'utilise des "+" ou des "&", j'obtiens le même résultat: à la fin du programme, il m'affiche mon csv avec ENFIN des points-virgules! Chouette alors! Je le ferme (il ne me demande pas si je veux enregistrer).
Je rouvre le .csv, et là les points-virgules ont été remplacés par des tabulations... :-((
0
Merci
Bonjour

Chez moi (office 2003 aussi), ça marche bien ...
Comment fais-tu pour visualiser le fichier .csv créé AVANT de l'avoir fermé (avec quel logiciel) ? Et comment le rouvres-tu après ?
Ludivine50
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
7 -
Bonjour le père,

En fait, dans mon code, j'avais ajouté:
Loop

sub test()
Call EXPORT_CSV
Workbooks.Open Filename:="\\.............csv"
End Sub

Et là, il me l'ouvrait avec des points-virgules sous Excel.

Si j'enlève le code Workbooks.Open Filename:="\\.............csv", quand j'ouvre moi-même le fichier par la suite, il l'ouvre avec les tabulations. Je n'y comprend rien!
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3746
0
Merci
bonjour

(il ne me demande pas si je veux enregistrer).

Normal, tu ouvres "output" puis tu utilises print et donc tu écris directement dans le fichier.

Comme suggéré par le père, si avec un éditeur dans le fichier tu as des points virgules, c'est ton programme d'ouverture qui ne fonctionne pas comme tu souhaites.
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3746
0
Merci
bonjour

quand j'ouvre moi-même le fichier par la suite, il l'ouvre avec les tabulations.

Normalement les points virgules sont remplacés par une ventilation sur la colonne suivante.

N'est-ce pas ce phénomène que tu considères comme une tabulation ?
Messages postés
114
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
1 février 2016
7
0
Merci
Merci les gars!
Effectivement je m'attendais à trouver en ouvrant le fichier csv sous Excel quelquechose du genre:
info1;info2;info3;info4
info1;info2;info3;info4
info1;info2;info3;info4
Sauf que j'avais une ventilation sur la colonne suivante à la place de mon point-virgule.

Suite à vos remarques, j'ai ouvert mon csv par le bloc-note, et je retrouve mes infos sous le format:
info1;info2;info3;info4
info1;info2;info3;info4
info1;info2;info3;info4

Bref, je me suis pris la tête pendant des heures et je vous ai pris de votre temps pour rien...
C'est juste qu'un csv ouvert dans Excel, ben le point-virgule signifie "changement de colonne", mais c'est quand même bien un point-virgule... Pourquoi chercher simple quand on peut se compliquer?

Je suis désolée les gars, je vous ai fait perdre votre temps!
Merci à vous deux en tout cas et bonne soirée