une macro de 2007 vers 2003

petchy

XLDnaute Occasionnel
bonsoir
j'ai un petit soucis avec une macro faite avec office 2007 et appliquer dans office 2003.
c'est une macro pour faire un tri,avec 2007 pas de probleme,mais j'ai un probleme avec 2003.
auriez vous une idée ?
Sub tri()

ActiveWorkbook.Worksheets("Database").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Database").Sort.SortFields.Add Key:=Range( _
"A2:A2002"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Database").Sort
.SetRange Range("A1:E2002")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
merci
 

Statistiques des forums

Discussions
312 506
Messages
2 089 109
Membres
104 037
dernier inscrit
damsau