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