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