[VBS] Tri Excel basique

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:

---

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

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

Code:

---

1 2 3 4

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

---

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:

---

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

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

Code:

---

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

---

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 :roll:

Citation:

---

Envoyé par 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 :roll:

---

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

Mea culpa, corrigé