Discussion :

[psycho33200]

Bonjour à tous,

j'ai une demande que je n'arrive pas a satisfaire pour le moment, j'espère trouver une solution ici.
Tous les jours je reçoit des rapports sous forme de fichier CSV, et afin de rentrer les infos dans un autre logiciel il faut que j'exécute plusieurs actions sur plusieurs de ces fichier,
pour cela j'ai créé une macro, mais comme dit au dessus les fichiers sont différents tous les jours, mais toujours avec exactement le meme nom.
Je voudrais si c'est possible créer un fichier 'xlsm' et de rajouter un bout de code a la macro afin de contenir un bouton qui exécutera la ou les macros, afin que chaque jour je n'ai besoin que de cliquer sur ce bouton pour modifier le fichier qui lui serait rattaché.

Ma question est donc de savoir si c'est donc possible de créer un bouton macro sur un fichier 'xlsm' qui s'exécutera sur un fichier 'csv' dans le même dossier ?

Je vous montre le code de la macro en question:

Sub conversion()
'
' conversion Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Columns("L:L").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("K:K").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Columns("K:K").ColumnWidth = 18
Columns("J:J").ColumnWidth = 15.43
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
Columns("X:AJ").Select
Selection.Delete Shift:=xlToLeft
Range("X1").Select
End Sub

Merci beaucoup d'avance pour vos réponses.

[Pierre Fauconnier]

Salut.

XL365 => Power Query, outil idéal pour amener un CSV dans un fichier Excel et le préparer (réorganisation des colonnes, filtres, tris, suppressions, ...)

[psycho33200]

Merci de ta réponse, ca m'as l'air plus viable comme procédé en effet, et une fois les données importées peut on sauvegarder les modifications faites sur le fichier d'origine des données ?

[Pierre Fauconnier]

Je ne connais pas les modifications que tu dois apporter à ton csv, ni la structure de celui-çi.

J'utiliserais PQ pour importer le CSV dans Excel et le triturer au maximum.

Après, pour le renvoyer en CSV, j'utiliserais ADODB, éventuellement avec un schema.ini en fonction de la complexité des données. Peux-tu donner un exemple Avant/Après?