bonjour,
je voudrai automatisé une macro dans un fichier batch
j'utilise excel 2010
je n'ai aucune idée de comment je pourrai faire.
voici mon code
Merci pour vos réponse
je voudrai automatisé une macro dans un fichier batch
j'utilise excel 2010
je n'ai aucune idée de comment je pourrai faire.
voici mon code
Sub convertisseur()
'
' convertisseur Macro
' convertisseur txt en xls
'
'
ChDir "D:\Envoi_mail"
Workbooks.OpenText Filename:="D:\Envoi_mail\stat_du_mois.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(10, 1), Array(20, 1), Array(30, 1), Array(63, 1), Array(81, 1)), _
TrailingMinusNumbers:=True
Range("D51555").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollRow = 1476
ActiveWindow.ScrollRow = 1349
ActiveWindow.ScrollRow = 1192
ActiveWindow.ScrollRow = 1113
ActiveWindow.ScrollRow = 1031
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 878
ActiveWindow.ScrollRow = 857
ActiveWindow.ScrollRow = 788
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 686
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 527
ActiveWindow.ScrollRow = 479
ActiveWindow.ScrollRow = 438
ActiveWindow.ScrollRow = 415
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 389
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 208
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 14
Selection.NumberFormat = "0.00"
Rows("1:2").Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.SaveAs Filename:="D:\Envoi_mail\stat_du_mois.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
Merci pour vos réponse