Discussion :

[harlockbaz]

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

[pc75]

Bonjour,

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

[harlockbaz]

voila le code

Code :

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

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

[AlainTech]

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 :

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

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.