conversion nombres en vba

Bonjour,

je récupère par VBA des données d'un fichier ascii (fichier excel joint)
les nombres dès le millier ne sont plus considérés comme des chiffres si en VBA je demande de supprimer les points. VBA etant en anglais, il me supprime aussi les virgules.

j'ai essayé de traiter en amont, directement dans le fichier ascii avec du VBS, mais rien de concluant.

Auriez vous une idée car je sèche dessus.

Merci d'avance.

Bonjour.

Citation:

---

Envoyé par FAUFAU57

j'ai essayé de traiter en amont, directement dans le fichier ascii

---

C'est effectivement la solution car une fois dans les cellules c'est trop tard ! Certainement mal codé …

Il y a plein d'exemples sur ce forum.

Sinon avec le fichier texte source en pièce jointe ainsi qu'une description exhaustive de la difficulté et du besoin,
je pourrais y jeter un œil …

ça fonctionne en VBSCRIPT également.

Code:

---

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

Function ConvertDouble(V) Dim t ConvertDouble = 0 t = Replace(V, ".", ",") If IsNumeric(t) Then ConvertDouble = t: Exit Function t = Replace(t, ",", ".") If IsNumeric(t) Then ConvertDouble = t: Exit Function End Function     Sub test() Dim n As String n = "1,2" Debug.Print ConvertDouble(n) n = "1.2" Debug.Print ConvertDouble(n) End Sub

---