Discussion :

[kamsy]

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.

[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 …

[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

[Invité]

Bonjour,
le VBS ne dispose pas d'enregistreur de macro.
oublis ça le temps de te familiariser avec les objets VBA!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[Menhir]

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.

[Invité]

dans VBS pas de librairie, pas de variables typées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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??????????