XL 2016 Cellule contenant des espaces

[Aldonanou]

Bonjour,

Il y a quelques années j'ai réalisé un programme pour le traitement de plusieurs caisses enregistreuses (A à V) avec l'analyse d'une information sur un numéro d'autorisation. Il s'agissait d'automatiser la récupération d'une vingtaine de fichiers .txt, de les copier dans un seul fichier Excel et de faire des états en fonction des données récupérées. Jusque là tout fonctionnait correctement sauf que depuis quelques temps les fichiers .txt contiennent en 1ère ligne en colonne J de la caisse G (par exemple) six espaces (trop drôle !). Le traitement s'effectue correctement toutes les autres fois.

Dim montant1 As Long ' Col G
Dim numAuto As String ' Col J doit avoir une valeur non vide

Etant précisé que numAuto (colonne J) ne pouvait pas avoir de valeur vide.

' numAuto = getnumAutorisation(chaine) changement car l'autorisation peut être alphanumérique
numAuto = getcodeReponse(chaine)

J'avais, par la suite, modifié mon programme car il pouvait y avoir une auto alphanumérique,

Function getcodeReponse(ByVal chaine As String) As Boolean

Dim tempArray() As String
Dim taille As Integer
tempArray = Split(chaine, ";")
taille = UBound(tempArray)
If (CInt(tempArray(7)) = 0) Then
getcodeReponse = True
Else
getcodeReponse = False
End If

End Function

Du coup je ne sais plus comment faire ?

Quelqu'un aurait-il une idée ?

Merci

 

[sousou]

bonjour
ça manque un peu de données