Open Office 2 : Chaine de caractères à suppri

Bonjour,

J'ai un doc (type excel mais en open) avec une liste en colonne A.
Les données ont des valeurs type : ARPOT2632595512

De la cas 1 à la case 10000 j'aimerais que les 5 premiers caractères soient supprimés (donc les lettres).


On m'a donné ce langage, mais il ne fonctionne que sur la version 3 d'open office.
Est ce que quelqu'un a une idée de modification SVP?

Merci :


Sub SuppressionCarac
' déclaration des variables
Dim i As Long
Dim wkb As Object
Dim wks As Object
Dim rge As Object

wkb = ThisComponent
wks = wkb.getSheets.getByName("Feuille1")

'xray wks
For i = 1 to 10000
rge = wks.getCellRangeByName("A" & i)
rge.Value = Right(rge.Value,Len(rge.Value)-5)
Next i


End Sub