tri excel "instruction attendue" 800a0400

Bonjour,

Toujours débutant en vbscript, j'ai le souci suivant dont je ne comprends pas la signification puisque sur plusieurs discussions de forums, j'ai trouvé la même synthaxe, je m'explique :

J'ai un script qui fonctionne et qui importe des données d'un fichier texte, le tout automatisé avec ouverture et fermeture du fichier xls.

Je souhaite trier les données par ordre croissant à partir de la colonne B1.

Voici le script :

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

Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject") 'Ouverture d'Excel Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Chemin d'accès du fichier StrPath = "C:\" 'Ajoute \ à la fin s'il y en a pas If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Nom du fichier StrFich = "ControleDisque.txt" 'Existance du fichier If FSO.FileExists(StrPath & StrFich) Then 'Rendre invisible Excel waExcel.Visible = False 'Importe le fichier texte vers une feuille Excel avec délimiteur : Tabulation et Space waExcel.Workbooks.OpenText StrPath & StrFich, , , , , , True, , , True 'Sélection de toutes les lignes de la feuille 1 waExcel.Worksheets(1).Cells.Select 'Tri par ordre croissant à partir de B1 waExcel.Selection.Sort Key1:=WaExcel.Worksheets(1).Range("B1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'Sauvegarde la feuiller importer vers le chemin d'accès de départ en motifiant l'extension et en mode partagé pour éviter des erreurs waExcel.Application.DisplayAlerts = false waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 2, True End If 'Fermeture d'Excel waExcel.Application.Quit

---

J' ai une erreur : ligne 19 caractère 30 "instruction attendue" que je ne comprends pas.

Merci de m'apporter votre aide :bug:

B'soir


Tu ne peu pas utiliser les "paramètres nommés" en vbScript essai :

Code:

---

1 2	WaExcel.Worksheets(1).Range ("B1"), xlAscending, xlGuess, 1, False, xlTopToBottom, xlSortNormal

---

faudra peu être déclaré les constantes xlAscending,xlTopToBottom à 1 et xlSortNormal et xlGuess à 0 ..


;)

Bonsoir et merci pour la réponse :)

J'ai remplacé

Code:

---

1 2 3

waExcel.Selection.Sort Key1:=WaExcel.Worksheets(1).Range("B1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

par

Code:

---

WaExcel.Worksheets(1).Range ("B1"), xlAscending, xlGuess, 1, False, xlTopToBottom, xlSortNormal

---

et maintenant j'ai une autre erreur :

ligne 19
caractère 2
Cet objet ne gère pas cette propriété ou cette méthode : 'Worksheets(...).Range'
Code 800a01b6
Erreur d'exécution Microsoft VBScript

Merci pour votre aide

Oups...

c'était juste les paramètres pour la fonction essai :

Code:

---

1 2 3 4 5

xlAscending = 1 xlTopToBottom = 1 xlSortNormal = 0 xlGuess = 0 WaExcel.Worksheets(1).Cells.Sort WaExcel.Worksheets(1).Range("B1"), xlAscending, , , , , , xlGuess, 1, False, xlTopToBottom, , xlSortNormal

---

C'est tout à fait ça, cela fonctionne impeccable :hola:

Merci beaucoup


:resolu:


:merci:

Ce n'est pas copier le bouton résolu dans ton message qu'il faut faire, mais bien cliquer dessus!