bonjour,
j'ai extrait le code vba d'une macro et je voudrai la convertir en vbs.
mon code est de cette forme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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
    ActiveWindow.SmallScroll Down=-3
    ActiveCell.Offset(4, 3).Range("A1:A1028").Select
    ActiveWindow.SmallScroll Down=-36
    Selection.Replace What=".", Replacement=",", LookAt=xlPart, _
        SearchOrder=xlByRows, MatchCase=False, SearchFormat=False, _
        ReplaceFormat=False
    ActiveWindow.ScrollRow = 921
    ActiveWindow.ScrollRow = 782
    ActiveWindow.ScrollRow = 705
    ActiveWindow.ScrollRow = 653
    ActiveWindow.ScrollRow = 613
    ActiveWindow.ScrollRow = 572
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 429
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 401
    ActiveWindow.ScrollRow = 386
    ActiveWindow.ScrollRow = 381
    ActiveWindow.ScrollRow = 361
    ActiveWindow.ScrollRow = 358
    ActiveWindow.ScrollRow = 324
    ActiveWindow.ScrollRow = 299
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 146
    ActiveCell.Offset(183, 0).Rows("1:1").EntireRow.Select
    ActiveWindow.SmallScroll Down=-78
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 1
    ActiveCell.Offset(-187, 0).Rows("1:2").EntireRow.Select
    Selection.Delete Shift=xlUp
    ActiveCell.Offset(15, 8).Range("A1").Select
    ActiveWindow.SmallScroll Down=24
    ActiveWorkbook.SaveAs Filename="D:\Envoi_mail\stat_du_mois.xlsx", _
        FileFormat=xlOpenXMLWorkbook, CreateBackup=False
    ActiveWindow.Close
pouvez vous m'aider afin que ce code fonctionne en vbs

Merci de vos réponse.