run time error 9 a l'execution mais fonctionne en pas a pas

Bonjour,

Je n'arrive pas à comprendre.
J'ai une macro à laquelle a la fin je met en forme le contenu d'une feuille en triant sur une colonne.
Quand j'arrive dans cette partie lorsque je met un point d'arret avant cette mise en forme et que je le lance pas a pas, cela s'execute bien.
Par contre si apres le point d'arret je fait "run" alors j'ai le droit a l'erreur run time error 9.

voici le bout de code qui me pose tant probleme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'MISE EN FORME DU TABLEAU "GLOBAL ISSUES" => classement alphabetique et insertion de la ligne d'entete Dim lastrow As Integer   lastrow = to_be_analyzed_workbook.Worksheets("Global issues").Cells.SpecialCells(xlCellTypeLastCell).Row to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Clear to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Add Key:=Range( _ "A1:A" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Global issues").Sort .SetRange Range("A1:I" & lastrow) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---

auriez vous une idee de ce qui cause ce probleme ?

Merci.

Bonjour,

Ton tri doit-il s'exécuter sur le classeur où se situe la macro?

Si non, remplace

Code:

---

With ActiveWorkbook.Worksheets("Global issues").Sort

---

par

Code:

---

With to_be_analyzed_workbook.Worksheets("Global issues").Sort

---