Découpé les informations d'un fichier VBA

Yo !! Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -  
Yo !! Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

C'est encore moi, j'ai besoin de découper mes lignes de fichiers de tel a caractere a tel caractere pour que le classeur dans excel soit bien organisé.

Que doi-je faire pour cela?

Merci d'avance
A voir également:

4 réponses

Réponse 1 / 4
fsteven Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   9
 
fonctions mid$ et instr$
1
Réponse 2 / 4
Yo !! Messages postés 54 Date d'inscription   Statut Membre Dernière intervention  
 
Ok je vais regarder merci
1
Réponse 3 / 4
Yo !! Messages postés 54 Date d'inscription   Statut Membre Dernière intervention  
 
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
1
Réponse 4 / 4
Yo !! Messages postés 54 Date d'inscription   Statut Membre Dernière intervention  
 
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
-1