trie d'un fichier .xls

Version imprimable

Bonjour,

J'ai un fichier .txt que je le copie dans un fichier .xls mais quand j'ai essaye de trier le fichier .xls il ne fait rien.

voilà ma fonction :

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
 
 
myfile1 = 1
 
myfile3 = 3
 
Open "C:\recup_donnees_1\Donnees" + ".txt" For Input As myfile1
Open "C:\recup_donnees_1\Donnees" + ".xls" For Output As myfile3
 
 
'Parcours du 1er fichier
Line Input #myfile1, sligne
While Not EOF(myfile1)
      'ecriture dans le fichier résultat
      Print #myfile3, sligne
 
      Line Input #myfile1, sligne
 
Wend
Print #myfile3, sligne
'fermeture des fichiers
Close #myfile1
 
 Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
 
 
Close #myfile3
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open ("C:\recup_donnees_1\Donnees" + ".xls")
 
xlApp.Cells.Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Citation:
Code:

1 2 3 4 xlApp.Cells.Select Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
Selon moi y'a aucune cellule de sélectionné présentement

Si je me rappelle bien tu dois lui donner un range comme:

Code:

xlApp.Cells[A1:B3].Select

C'est peut-être pas exactement ça mais cherche dans cette direction...Y'a sûrement moyen aussi de sélectionné la feuille entière.

16/07/2008, 14h30
mog83

xlApp.Cells[A1:B3].Select

si je met cette instruction, il y a une erreur d'exécution de type

Code:

Utilisation incorrecte de la propriété Cells
16/07/2008, 14h34
Faladin

Citation:

Envoyé par Faladin

C'est peut-être pas exactement ça mais cherche dans cette direction...