Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionConst ForReading 1, ForWriting 2 Dim oFso, f Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("C:\Users\Monique\Downloads\test.csv", ForReading) ln=-1 cl=0 while Not f.AtEndOfStream '1ère itération pour définir les limites ln=ln+1 'définition indice lignes Tab=Split(f.ReadLine,";") If cl < UBound(Tab) Then cl = UBound(Tab) Wend f.Close MsgBox "indice lignes : " & ln+1 & "indice colonnes :" & cl+1 Dim Tab2() ReDim Tab2(ln,cl) Set f = oFso.OpenTextFile("C:\Users\Monique\Downloads\test.csv", ForReading) i=0 while Not f.AtEndOfStream ' 2ème itération pour remplir le tableau Tab = Split(f.ReadLine,";") For j = 0 to UBound(Tab) Tab2(i,j) = Tab(j) Next i=i+1 Wend f.Close MsgBox Tab2(1,1) Dim fsot, ft Set fsot = CreateObject("Scripting.FileSystemObject") Set ft = fsot.OpenTextFile("C:\Users\Monique\Downloads\lolololololol.txt", 2,true) m=0 For i=0 to UBound(Tab2,1) ' vérification For j=0 to UBound(Tab2,2) If m <> cl Then ft.write(Tab2(i,j) & " ") m=m+1 Else ft.write(vbcrlf) m=0 End If Next Next
Si tu souhaites me transmettre ton code optimisé je t'en serai reconnaissant même si je peux comprendre que tu ne le veuilles pas (que cela soit justifié ou non car je suis innocent dans l'histoire )*
D'ailleurs si j'aimerais que tu me donnes ton code optimisé, c'est plus par curiosité de geek que par nécessité absolue car mon code marche, comme tu veux donc !
c'est plus par curiosité de geek que par nécessité absolue car mon code marche