Novice avance !?
XLDnaute Occasionnel
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
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:
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 = "C:\DIVERS\"
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