Convertir vba en vbs

Version imprimable

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

Code:

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.

30/09/2014, 17h14
Marc-L

Bonjour, bonjour !

Sais-tu ce qu'est au moins le VBS ?

Vu le code ayant des caractéristiques particulières au VBA spéciques à Excel, à quoi bon, quel est l'intérêt ?

Sinon voir le tutoriel Introduction au langage VBScript …
30/09/2014, 17h19
kamsy

bonjour,
oui je sais ce que ç'est le vbs du moin à quoi il sert, faire un batch en vbs c'est une autre question.
en fait je voudrai automatiser ce vba en ligne de commande et je me disais qu en vbs ca serait plus simple de le faire
01/10/2014, 09h23
Invité
Bonjour,
le VBS ne dispose pas d'enregistreur de macro.
oublis ça le temps de te familiariser avec les objets VBA!
Code:

1 2 3 4 Dim Xls As Excel.Application Dim wb As Workbook Dim ws As Worksheet Dim Rg As Range
vue que t'a macro, bien que d'une bizarrerie sans nom, fonctionne; je te suggère de regarder du coté du gestionnaire de tache et comment lancer une macro !

http://jpcheck.developpez.com/tutori...ge-parametres/
01/10/2014, 11h10
Menhir

Citation:

Envoyé par kamsy

pouvez vous m'aider afin que ce code fonctionne en vbs

Etant donné que ton code contient plusieurs objets Excel (Workbooks, Range, Cells), la seule solution me semble être de charger dans ton projet VBS la bibliothèque "Micosoft Excel Object Library".
Eventuellement, ajoute-y "Micosoft Office Object Library" : ce n'est peut-être pas indispensable mais ça ne peut pas faire de mal.
01/10/2014, 11h51
Invité
dans VBS pas de librairie, pas de variables typées.
Code:

1 2 dim XLS set XLS=CreateObject("Excel.Application")
on est bien loin du vba c'est toute une philosophie à intégrer! il faut décliné toute arborescence des objets
Code:

1 2 3 4 5 6 dim WB dim Ws dim Rg set WB=xls.Workbooks.open("C:\MyRep\MyXls.Xls") set Ws=wb.sheets(1) set Rg=ws.UsedRange
si on ne la maîtrise pas un minimum dans Excel VBA??????????