Macro:open fichier .CSV+convertir+saveas .XLS

Quelqu'un a une idée ?

Merci d'avance !!

Personne ne sait ?

Merci !

voila ca doit marché

Sub Macro1()
'
'

'ouvrir le fichier

Workbooks.Open Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports\Doc1.xls"

'convertir la colonne a avec séparateur ,
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

'sauvegarder fichier

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports\Doc1.xls", FileFormat _
:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

End Sub

Sub Macro2()
'
'

'ouvrir le fichier

Workbooks.Open Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports\Doc2.csv"

'convertir la colonne a avec séparateur ,
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

'sauvegarder fichier

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports\Doc2.xls", FileFormat _
:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

End Sub

tiens nous au courant

Bonjour et merci !!

Voila ce que j'ai fait (copié coller des infos de spyderpaint avec mise a jour des noms de fichiers.

Ca ouvre bien le fichier, ça convertit bien, mais ça n'enregistre pas sous format XLS (dans le meme répertoire). (erreur 400 d'excel)

Pour info, j'aimerai qu'après avoir sauvegardé, ça ferme le fichier pour pouvoir passer au fichier suivant.

MErci beaucoup !!!

Sub Macro1()
'
'

'ouvrir le fichier

Workbooks.Open Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports dach\Client_followup_EWS_file_IPG.csv"

'convertir la colonne a avec séparateur ,
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

'sauvegarder fichier

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports dach\Client_followup_EWS_file_IPG.xls", FileFormat _
:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

End Sub

Sub Macro2()
'
'

'ouvrir le fichier

Workbooks.Open Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports dach\Client_followup_EWS_file_TSG.csv"

'convertir la colonne a avec séparateur ,
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

'sauvegarder fichier

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx199\Bureau\reports dach\Client_followup_EWS_file_TSG.xls", FileFormat _
:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

End Sub

C'est résolu, merci a tous !