Discussion :

[Bruniche]

Bonjour,

Je tourne en rond sur un pauvre script vbs (en meme temps, je débute ^^) et la je ne comprends plus rien.

En fait, j'exporte une liste d'un fichier texte vers un fichier Excel (la sa marche) puis je veux faire un simple tri, mais la sa plantouille.

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
 
Option Explicit
 
' Creation du lien pour lancer Excel
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
 
' Creation du lien pour accès Système
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
 
' Recup argument
Dim argu0,argu1
argu0 = wscript.arguments(0)
argu1 = wscript.arguments(1)
 
' Ouverture du fichier txt
Dim FileRead, FileLine
Set FileRead = objFso.OpenTextFile(argu0, 1)
 
' Création du fichier Excel
objExcel.DisplayAlerts = False
objExcel.workbooks.Add
 
objExcel.Cells(1, 1).formula = "Drivers Imprimante"
 
Dim Compteur
Compteur = 3
 
' Ecriture du fichier txt dans la 1er colonne du fichier Excel
Do While FileRead.AtEndOfStream <> True
objExcel.Cells(Compteur, 1).formula = FileRead.readline
Compteur = Compteur + 1
Loop
FileRead.close
 
' Tri classique
Range("A3:A28").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
 
' Sauvegarde du fichier et sortie d'Excel
objExcel.ActiveWorkbook.SaveAs argu1
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit

Voila tout le programme, mais à chaque fois que je l'execute, j'ai l'erreur :
mis_frm1.vbs(38, 21) Microsoft VBScript compilation error: Expected statement

Si quelqu'un pouvait m'expliqer la couille, je lui en serais reconnaissant.
(je sais meme pas si c'est la sélection des cellules ou la commande de tri qui pose problème)

Merci d'avance

[SfJ5Rpw8]

on ne peu pas recopier tel quel le code VBA venant d'excel vers ton script... il faut le "prefixer.."
essai :

Code :

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

1
2
3
4
 
With objExcel.ActiveWorkbook.Worksheets(1)
 .Range("A3:A28").Sort Key1:=.Range("A1"), Order1:=xlAscending
end with

[Bruniche]

Non j'ai essayé ca marche pas mieux.

J'ai beau cherché sur plusieurs forums, je ne trouve pas ma solution.
J'ai modifié de la sorte la partie du code

Code :

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

1
2
3
4
5
 
Dim objSheet
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objSheet.Range("A3:A28").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending

Si je vire la dernière ligne, l'éxecution se passe normalement et en ouvrant mon fichier excel, j'ai bien les cellules de A3 a A28 séléctionnées, mais dès que je remet la dernière ligne, l'erreur ressurgit :
mis_frm1.vbs(40, 21) Microsoft VBScript compilation error: Expected statement

[SfJ5Rpw8]

sans utilser les paramétres nommées : ( je sais plus si on y as droit en VBS à ces fameux paramétres nommés..)

Code :

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

objSheet.Range("A3:A28").Sort objSheet.range("A3"),1

[Bruniche]

Génial, ca marche.

Par contre, je comprends pas trop, car j'ai du essayer un nombre de variante de cette syntaxe un nombre de fois incalculable....

Mais bon osef, ca marche !!!
Merci pour tout. Je reprendrais la meme cremerie la prochaine fois

[SfJ5Rpw8]

Génial, ca marche.

Par contre, je comprends pas trop, car j'ai du essayer un nombre de variante de cette syntaxe un nombre de fois incalculable....

Mais bon osef, ca marche !!!
Merci pour tout. Je reprendrais la meme cremerie la prochaine fois

lorqu'on sort de cette crémerie on ferme pas la porte mais il y as un bouton a actionner en bas de l'écran