Code marchant dans un classeur et pas dans un autre

[Antoine]

Bonjour, là je suis confronté a quelque chose de pas très compréhensible.
L'informatique est censé etre une science ( ou du moins un dérivé des maths, qui sont une science )
Et donc --> "meme cause provoquent les meme effets"

Et bien pas chez moi ;-) :

Le meme code fonctionne a merveille dans un classeur alors qu'il provoque une erreur "projet ou bibliothèque manquante" dans un autre classeur.
Il ne semble pas aimer du tout les fonction de texte : il bloque sur Trim(), Mid() et ne veut pas les reconaitre

voila le code entier d'un module .... je ne le met pas en fichier joint car c'est trop gros.



Option Explicit
Public Chaine As String
--------------------

Public Sub ExtractionDate()

Dim nbrdedate As Integer ' contient le nombre date au format jj/mm/aaaa
Dim repDebut As Single ' défini ou va commencer la selection des caractères

repDebut = 1 'commencer au premier caractère de la chaine
nbrdedate = Len(Chaine) / 11 ' car il y a 11 caractère par date

Static extractdate() As String
ReDim extractdate(1 To nbrdedate) As String ' tablo començant a 1 et ne ontenant que des string


Dim i As Integer
For i = 1 To nbrdedate
extractdate(i) = Mid(Chaine, repDebut, 10) ' la chaine, de répdebut a repdebut +10 caractère
extractdate(i) = FormatDateTime(extractdate(i), vbGeneralDate)
'ListBox1.List = extractdate
repDebut = repDebut + 11
Next i
End Sub
---------------------

Il bloque systematiquement sur Mid(), alors que le meme code fonctionne dans un autre classeur.
je ne vois pas ou est le problème ( le variables sont semble toute dimentioner et initialiser correctement .... )

 

[Antoine]

j'utilise Exel 2000.
Je suis en train de me dire qu'a la rigueur il doit bien avoir un autre moyen de faire ce que fait ce code : il sépare des dates séparé par des virgules et les stock dans une variable tableau a une dimention

avec split() peut-etre .. mais je sais pas bien m'en servir