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

Question

Hello,  


J'ai besoin de votre aide pour faire une macro suivante:  


Ouvrir doc1 situé C:\Documents and Settings\xxx199\Bureau\reports\  

et faire l'équivalent de la fonction "convertir délimité" avec séparateur virgule, sur la colonne A.  

Sauvegarder le fichier sous doc1.XLS  


PUIS  


Ouvrir doc2.CSV situé  C:\Documents and Settings\xxx199\Bureau\reports\  

et faire l'équivalent de la fonction "convertir délimité" avec séparateur virgule, sur la colonne A.  

Sauvegarder le fichier sous "doc2.XLS"   

etc...  

donc l'idée générale c'est d'ouvrir des fichiers .CSV, de leur réappliquer correctement les colonnes et enfin les sauvegarder en document .XLS.  


Merci beaucoup pour votre aide 

(je précise que je suis sous excel 2007)

Ben · Answer

Quelqu'un a une idée ?

Merci d'avance !!

BEn · Answer

Personne ne sait ?

Merci !

spyderpaint · Answer

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

BEn · Answer

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

BEn · Answer

C'est résolu, merci a tous !

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

5 réponses

Discussions similaires