toto = "1234567890"
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 1 To UBound(titi) - 1 Step 2
titi(i) = titi(i) & vbCrLf
Next
MsgBox Join(titi, "")
Dim FF As Integer: FF = FreeFile
Open "C:\0.txt" For Input As #FF
toto = Input(LOF(FF), #FF)
Close #FF
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
1 mai 2016 à 16:06
Modifié par NHenry le 1/05/2016 à 16:07
Un bout de code ?
1 mai 2016 à 16:12
quand on lit une ligne comment le dire pour sélectionner 2 charactere et de revenir a la ligne
1 mai 2016 à 16:17
1 mai 2016 à 16:37