Macro VBA vers VBS

Version imprimable

30/01/2008, 10h44
harlockbaz

Macro VBA vers VBS

Bonjour,
J'ai une macro vba sous excel et je voudrais la convertir en vbscript afin de mettre le script dans un .bat.

Merci de votre aide
30/01/2008, 16h50
pc75

Bonjour,

Peux tu nous donner un peu plus de détails, voire un bout de code ?

voila le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Range("X1").Select
    ActiveCell.FormulaR1C1 = "lastLogin"
    Range("X4").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],11)"
    Selection.AutoFill Destination:=Range("X4:X1925"), Type:=xlFillDefault
    Range("X4:X1925").Select
    ActiveWorkbook.SaveAs Filename:="C:\ExtractionAD\ExtractionAD.xls", FileFormat:= _
        xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
    Application.Quit
End Sub

Si tu n'as pas encore trouvé, commence par supprimer tous les Select et les paramètres inutiles.
Il faut aussi remplacer les constantes nommées par leur valeur et les paramètres nommés par leur position.
Code:

1 2 3 4 5 6 7 8 Sub test() Range("X1").FormulaR1C1 = "lastLogin" Range("X4").FormulaR1C1 = "=LEFT(RC[-1],11)" Range("X4").AutoFill Range("X4:X1925") ActiveWorkbook.SaveAs "C:\ExtractionAD\ExtractionAD.xls", 43 ActiveWorkbook.Close Application.Quit End Sub
Pour la suite, il faut créer une instance d'Excel, puis une du classeur, puis encore une de la feuille.