Découpé les informations d'un fichier VBA

fonctions mid$ et instr$

Ok je vais regarder merci

Résumons,

j'ai ce script la :

Sub exemple_connexion()
'Declaration de variable
Dim db1 As Database
Dim Rs1 As DAO.Recordset
Dim fileReader As String
Dim Textline
Dim i As Integer
Dim y As Integer

y = 1

Dim x As Integer
x = 1

' Ouverture de la base de données distri_vue_tournees_2003.mdb
Set db1 = DBEngine.OpenDatabase("C:\AVIS DE SOUFFRANCE\distri_vue_tournees_2003.mdb")

i = 0

Open "C:\AVIS DE SOUFFRANCE\Export.txt" For Input As #1 ' Ouvre le fichier.
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, Textline ' Lit la ligne dans la variable.
i = i + 1
Worksheets("Feuil1").Cells(i, 1).Value = Mid(Textline, 1, 1)
Worksheets("Feuil1").Cells(i, 2).Value = Mid(Textline, 2, 2)
Worksheets("Feuil1").Cells(i, 3).Value = Mid(Textline, 4, 30)
Worksheets("Feuil1").Cells(i, 4).Value = Mid(Textline, 34, 30)
Worksheets("Feuil1").Cells(i, 5).Value = Mid(Textline, 68, 30)
Worksheets("Feuil1").Cells(i, 6).Value = Mid(Textline, 98, 30)
Worksheets("Feuil1").Cells(i, 7).Value = Mid(Textline, 102, 30)
Worksheets("Feuil1").Cells(i, 8).Value = Mid(Textline, 106, 30)
Worksheets("Feuil1").Cells(i, 9).Value = Mid(Textline, 110, 30)
Worksheets("Feuil1").Cells(i, 10).Value = Mid(Textline, 114, 30)
Worksheets("Feuil1").Cells(i, 11).Value = Mid(Textline, 120, 30)
Worksheets("Feuil1").Cells(i, 12).Value = Mid(Textline, 126, 30)

Debug.Print Textline ' Affiche dans la fenêtre Exécution.
Loop

' Fermeture de la base distri_vue_tournees_2003.mdb
db1.Close

End Sub

Est ce que quelqu'un peut m'aider a faire une boucle sur les informations de mon tableau car cela me prendrais trop de place, j'ai dans ma base le premier caractere de la zone a prendre et le dernier caractere de la zone.

Je doit donc bouclé sur ces deux informations pour utilisé le Mid()

Mon seul hic c'est que je ne sais pas le faire car je suis nul en VB...

Merci de votre aide

J'ai oublier de rajouter que au début j'ai ca O01ALLOUCHE LEVY

et je veux le faire mettre en O 01 ALLOUCHE LEVY

C'est a dire le premier caractere dans la premiere colonne, du 2 au 3 dans la seconde du 4 au 33 dans la troisiemme et ainsi de suite et je dois aussi faire un test pour supprimer les espace de chaque coté

Merci de votre aide