Discussion :

[novice06]

bonjour,

je rencontre un problème au niveau de la fonction convertir d'excel sur un fichier csv.

on part du principe que le fichier csv (pièce jointe) est ouvert et que la macro suivante est lancée à partir d'un autre fichier contenant toutes mes différentes macros.

De base la 1ère colomne contient toutes les informations avec comme séparteur la virgule et donc ma macro doit répartir chacune des informations séparemment dans les colonnes correspondantes.

Sauf que rien ne s'est passé une fois que la macro a "fait" son travail et que l'on réouvre le fichier.

Pourriez-vous m'aider ? svp
merci

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 Conversion_Column()
 
Application.DisplayAlerts = False
 
Columns(1).Select
Selection.TextToColumns Destination:=Cells(1, 1), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
 
chemin = "\\serveur\test\"
 
    ActiveWorkbook.SaveAs Filename:= _
            chemin & "\ligne 19.csv", _
          FileFormat:=xlCSV, CreateBackup:=False, Local:=False
          DoEvents
    ActiveWorkbook.Save
 
    ActiveWorkbook.Close savechanges:=False
 
 Application.DisplayAlerts = True
 
End Sub

[Daniel.C]

Bonjour,

Je n'ai pas compris le but de ta macro. Tu ouvres un fichier csv et tu l'enregistres au format csv ? C'est pour changer le séparateur ? En tout cas, ma macro fonctionne ici. Je joins le fichier obtenu.

[novice06]

merci

une macro ouvre un fichier excel vierge et alimente ce fichier avec les informations et les disposent tel qu'elles apparaissent dans ton fichier résultat.
Cetta macro enregistre enfin ce nouveau fichier .xls ouvert et alimenté en un fichier .csv via ce code:

Code :

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

1
2
3
4
5
6
7
8
9
chemin = "\\serveur\test\"
 
    ActiveWorkbook.SaveAs Filename:= _
            chemin & "\ligne19.csv", _
          FileFormat:=xlCSV, CreateBackup:=False, Local:=False
          DoEvents
    ActiveWorkbook.Save
 
    ActiveWorkbook.Close savechanges:=True

Lorsque j' ouvre par la suite ce fichier .csv généré il a perdu son formatage et je retrouve toutes les informations qui était avant dans les différentes colonnes uniquement dans la 1ère colonne avec le séparteur virgule.

Je voudrais donc récupérer le bon formatage de ce fichier .csv mais ma macro ne donne pas le résultat escompté.

Par contre je ne vois pas dans ton fichier résultat de macro ou bien est-ce ma macro qui fonctionne avec toi !?

[Daniel.C]

Par contre je ne vois pas dans ton fichier résultat de macro ou bien est-ce ma macro qui fonctionne avec toi !?

Tu ne peux pas avoir de macro dans un fichier csv. Le fichier a été généré avec ta macro. Sauf que je n'ai pas utilisé la partie enregistrement. Je l'ai fait manuellement. Fais l'opération manuellement et vois s'il y a une différence.

[novice06]

ok bien compris mais lorsque j'ouvre à nouveau ce fichier csv et que tout est concaténé dans la 1ère colonne séparé par des virgules et que je convertit manuellement cette colonne puis j'enregistre à nouveau le fichier en csv manuellement...le fichier conserve son nouveau format avec des données dans chacunes des colonnes.

donc manuellement ok ça marche
alors pourquoi par code vba ça ne marcherait pas !?

Via mon fichier perso.xls où sont stockées mes macros j'appelle ce fichier csv, j'y applique la conversion de la colonne et je réenregistre ce fichier dans son format orginel .csv

en le faisant pas à pas avec la touche F8 on voit bien le fichier se formater correctement, s'enregistrer et se fermer.
et pourtant en réouvrant le fichier tout est concaténé à nouveau dans la 1ère colonne.

ok c'est un fichier csv mais pourquoi cette macro ne pourrait pas faire ce qu'il est possible de faire manuellement ?

merci
bonne soirée

[Daniel.C]

Parce que, par défaut, VBA enregistre avec le séparateur US, la virgule alors que dans les options régionales de Windows, le séparateur doit être le ";". Mets le paramètre "local:=True" dans la méthode "SaveAs".