Discussion :

[ESVBA]

cette fois j'ai un problème de tri de ma plage inscrite dans la feuille Excel.

Erreur :

Type incompatible: 'Range'

Voici le code résumé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Const xlAscending = 1
    Const xlNo = 2
    Const xlSortRows = 2
    Dim StrNomFeuille
    StrNomFeuille = "Liste logiciels tout poste"
 
    Set objExcel = CreateObject("Excel.Application")
    Set objClasseur = objExcel.Workbooks.Open(FilePath)
 
    '...
   'la ligne posant problème :
    objExcel.Sheets(StrNomFeuille).Range("A3:E5000").Sort Range("A3"), xlAscending  ', , , , , , xlNo, , , xlSortRows

L'aide excel n'est pas très explicite. Fonctionne en VBA pas en VBS.
Rien trouvé dans la FAQ.

ESVBA

[ESVBA]

Je réponds enfin...

il faut tout déclarer

Code :

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

1
2
3
4
5
6
7
8
9
10
    '--- Mise en page Finale : tri et largeur des colonnes
    ' objExcel.Range("A3:E" & oshLstLog.Range("A1").End(xlDown).Row).Sort Range("A1")
    Const xlAscending = 1
    Const xlYes = 1
    Const xlSortRows = 2
    Const xlGuess = 0
    oshLstLog.Activate
    'Paramètre :
    oshLstLog.Range("A3").Select
    oshLstLog.Range("A3:E600").Sort oshLstLog.Range("A2"), xlAscending, oshLstLog.Range("B2"), , xlAscending, , , xlGuess

ESVBA