Split obtenir le bon format de chaque élement?

**itwoo** · 22/02/2018, 08h21

Bonjour,

Est il possible lors du split de la string u() d’obtenir directement chaque élément au bon format à savoir, string, date, double? j’ai essayé par exemple de créer un (Private) Type mais il n’est pas accepté par VBA...j’ai aussi remplacé les . par des , dans u() mais non ca ne veut toujours pas.
NB : En faisant élément par élément pour attribuer le format cela marche bien, c’est juste un peu plus long.

Voici la string u(), le séparateur est chr(9), en plus de la température en élement string, il y a la date en élément date, puis 4 éléments: la température le matin, midi et soir et un indice à mettre en format double tous les 4
: u(0) : "Temperature 02/01/18 18.27 21.52 32.21 932" : String

Type VA1
Vtemp As String
Vdat As Date
Vmat As Double
Vmidi As Double
Vsoir As Double
Vindi As Double
End Type
Dim TabVA1 As VA1

VBA refuse cette expression en indiquant une erreur sur le Type et sa définition par user

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  TabVA1 = Split(u(0)), Chr(9))

donc fait cela en attentant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VA1 = Split(u(0)), Chr(9))

mais VA1 n'est pas du tout reconnu comme le Type VA1 défini dans Type VA1!!!
'- : VA1 : : Variant/String(0 to 5)
' : VA1(0) : "Temperature" : String
' : VA1(1) : "02/01/18" : String : ici il faudrait date
' : VA1(2) : "18.27" : String : ici il faudrait double...et idem pour les éléments restants

Code :

Sélectionner tout - Visualiser dans une fenêtre à part