Discussion :

[mog83]

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 :

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

[Faladin]

Code :

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

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 :

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

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.

[mog83]

xlApp.Cells[A1:B3].Select


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

Code :

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

Utilisation incorrecte de la propriété Cells

[Faladin]

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