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

Fermé

Ben - Modifié par Ben le 13/05/2011 à 14:52
BEn - 18 mai 2011 à 13:52

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)

A voir également:

Macro:open fichier .CSV+convertir+saveas .XLS
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

5 réponses

Réponse 1 / 5

Ben
13 mai 2011 à 15:53

Quelqu'un a une idée ?

Merci d'avance !!

Réponse 2 / 5

BEn
16 mai 2011 à 16:45

Personne ne sait ?

Merci !

Réponse 3 / 5

spyderpaint Messages postés 21 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 18 mai 2011 1
17 mai 2011 à 11:17

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

Réponse 4 / 5

BEn
Modifié par BEn le 17/05/2011 à 16:43

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

BEn
Modifié par BEn le 18/05/2011 à 14:24

C'est résolu, merci a tous !

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters