Creer un Csv acev sepearateur Point virgule

**hs.hs** · 23/08/2016, 11h47

Bonjour le forum,

J essaye de crééer un fichier CSV a partir d'un fichier excel. Le séparateur doit être point virgule
J'ai le code ci-dessous qui me crée effectivement un fichier CSV mais avec separateur virgule. J ai verifié les parametres dans langues et régions et mon separateur de listes est bien ;
J ai aussi mis SaveAs avec local:=False mais j'ai pas réussi à changer le séparateur
j'aimerai aussi faire en sorte de donner la main a l'utilsateur pour nommer le fichier mais je sais pas comment faire
Merciiiii

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Ecrire_CSV()
Dim Rng As Range, Ligne As Range, Cel As Range
Dim sStr As String, sNomFichier As String
Dim NumFichier As Integer
Dim sSep As String
 
    sSep = ","
    sNomFichier = ThisWorkbook.Path & "\" & "GTA_ADPPE0123456" & Worksheets("nombredetr").Range("F2") & ".csv"
    Set Rng = ActiveSheet.UsedRange
 
    Close
    NumFichier = FreeFile
 
    Open sNomFichier For Output As #NumFichier
        For Each Ligne In Rng.Rows
            sStr = ""
            For Each Cel In Ligne.Cells
                sStr = sStr & Cel.Text & sSep
            Next Cel
            Print #NumFichier, sStr
        Next Ligne
    Close #NumFich

**eriiic** · 23/08/2016, 12h08

Bonjour,

C'est plutôt Local=True si tu veux le séparateur de liste régional.
eric

**hs.hs** · 23/08/2016, 12h17

je desesperais tellement que j'ai essayé local := true et local:= false
Quand je fais false ça me donne des virgules et quand je mets true ça me genere un fichier csv sous forme de tableau

**kiki29** · 23/08/2016, 12h24

Salut,déjà pourquoi mets-tu

sSep = ","

et pas sSep = ";"

Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration).
La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

**hs.hs** · 23/08/2016, 12h36

Au debut j avais mis sSep =";"
Mais ca me donne un tableau et moi je veux un fichier où toutes mes colonnes sont separees par un point virgule.
Donc j ai mis virgule et ça a marché avec virgule mais pas avec point virgule

**eriiic** · 23/08/2016, 12h47

ça me genere un fichier csv sous forme de tableau

Non, ça te génère un fichier texte à ouvrir avec bloc-note pour t'en persuader.
Excel est paramétré pour ouvrir les .csv, il te le met donc automatiquement en tableau.

**hs.hs** · 23/08/2016, 12h55

Ah oui c'est vrai. T as raison!!!
Mais comment faire pour ouvrir un csv qui sur une colonne met toutes les données separées par un point virgule??

**Jean-Philippe André** · 23/08/2016, 13h11

Salut,

pourrait-on savoir pourquoi tu souhaites un tel comportement de la part d'Excel ?

Que veux tu exactement, et quelles sont les marges de manoeuvre dont tu disposes ? format autre que csv ? visuel pour des utilisateurs ? simple choix personnel ?

**hs.hs** · 23/08/2016, 14h20

Bonjour,

En effet, j'ai un tableau ou j importe les données qui m'interessent et je dois générer un document Csv pour l'importer sur un portail
Mon tableau contient 15 colonnes de A à O dony juste les 9 premiers sont renseignés et les autres resteront vides.
Je veux cliquer sur un bouton qui me va me generer ce csv.
J espère que j'ai eclairci un peu.

**Jean-Philippe André** · 23/08/2016, 14h22

Ok,

mais donc sauf erreur, l'objectif est atteint, vu que le fait de l'ouvrir sous Excel n'est pas la cible principale, si ?

**hs.hs** · 23/08/2016, 14h38

çA doit etre un fichier csv pas un fichier texte
Quand je lance la macro ça m enregistre le fichier et si je mets dans le code comme separateur , j ouvre le fichier en format csv et il est comme je veux que ça soit sauf pour le séparateur
Si je garde le point virgule comme separateur dans mon code , je dois ouvrir le fichier avec bloc notes et le séparateur est bon mais le format de fichier n'est pas bonne

**eriiic** · 23/08/2016, 17h14

çA doit etre un fichier csv pas un fichier texte

Un fichier csv EST un fichier texte et pas autre chose.
Donc tu fais enregistrer sous... CSV et local=True, tu contrôles avec le bloc-note que tu as bien le bon séparateur et tu l'envoies à ton appli.
Tu verras bien si il y a encore qq chose qui la gêne...
eric

**hs.hs** · 24/08/2016, 11h30

Mais je veux que ça se genere directement depuis la macro en fichier .csv avec separateur ;

**Jean-Philippe André** · 24/08/2016, 11h35

Salut,

et la solution qui a ete apportee par kiki29 et confirmee par eriiic ne convient-elle donc pas ?

**hs.hs** · 24/08/2016, 11h39

Non, ca me genere un tableau avec les colonnes que je voulais alors a=que moi je veux que toutes mes colonnes soient importées dans la colonne A avec separateur ;

**Jean-Philippe André** · 24/08/2016, 11h45

OK, mais as-tu essaye d'envoyer le fichier que l'on te propose dans ton outil ? Cela fonctionne-t-il ?

Ce qu'on essaie ici de te dire est que malgre le fait que visuellement dans Excel ca ne corresponde pas a ce que tu attends, du point de vue realite machine, le fichier devrait etre parfaitement correct =]

**eriiic** · 24/08/2016, 11h45

Pas bonjour non plus,

L'enregistreur de macro te donne quoi avec Enregistrer sous... *.csv ?
Et si tu n'as pas le bon séparateur et que tu ajoutes le paramètre , local:=True ça donne quoi dans le fichier généré ?
eric

**Marc-L** · 24/08/2016, 11h46

Bonjour, bonjour !

hs, tu n'as toujours pas compris ‼

Pour vérifier le fichier texte csv généré, ne pas l'ouvrir dans Excel mais dans un éditeur de texte comme NotePad ‼
Car comme il t'a pourtant déjà été expliqué, Excel modifie l'affichage d'un csv à son ouverture …

Voilà, voilà !

_________________________________________________________________________________________________________

L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire et d'appliquer les consignes !