[Résolu]Un peu d'aide sous VBA !
Un peu d'aide sous VBA ! [Résolu] - VB/VBA/VBS - Programmation
Marsh Posté le 18-05-2011 à 14:00:31
Salut,pour cela tu as l'enregistreur de macros puis une optimisation manuelle du code
Marsh Posté le 18-05-2011 à 14:25:27
| kiki29 a écrit : Salut,pour cela tu as l'enregistreur de macros puis une optimisation manuelle du code |
Hello,
Merci, j'ai suivi ton conseil et ça a résolu le problème !
Sujets relatifs:
- Aide : VBA SELECTION une colonne entière sous condition bug
- Aide VBA : Copier des cellules non vides ...
- VBA : débutant, besoind'aide pour une macro
- Besoin d'aide en VBA
- [VBA] Besoin d'aide pour macro
- Export Excel vers Access à l'aide de VBA
- [VBA / Excel] Aide sur une macro a programmer
- Besoin d'aide programme VBA cellules
- Aide code VBA -calcul Moyenne mobile-
- Aide sous Excell VBA
Marsh Posté le 18-05-2011 à 10:53:52
Bonjour à tous !
J'ai besoin de votre aide pour faire une macro suivante:
Ouvrir doc1 situé C:\Documents and Settings\xxx199\Bureau\reports dach\
et faire l'équivalent de la fonction "convertir délimité" avec séparateur virgule, sur la colonne A.
Sauvegarder le fichier sous doc1.XLS
fermer le fichier après l'avoir sauvegardé
PUIS
Ouvrir doc2.CSV situé C:\Documents and Settings\xxx199\Bureau\reports dach\
et faire l'équivalent de la fonction "convertir délimité" avec séparateur virgule, sur la colonne A.
Sauvegarder le fichier sous "doc2.XLS"
fermer le fichier après l'avoir sauvegardé
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)
J'avais fait, avec de l'aide, ce qui est ci dessous : ça ouvre le fichier, ça convertit mais ça génère une erreur (400) avant d'enregistrer sous .XLS et de le fermer
Merci de votre aide
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
Message édité par lalat- le 18-05-2011 à 14:25:41